Re: [belajar-excel] otomatis entri date setelah input data

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

Yang ini cuma ikutan tentang script mas Nang :
Hapus baris 5 sampai 6  dan 8 sampai 11, tapi yang kolom B sampai D, kolom
F, dan kolom K:P di active sheet
Intersect( range("5:6,8:11") , range("b:d,f:f,k:p") ).clearcontents

Regards,
Kid



2017-08-04 6:49 GMT+07:00 nangagus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Fajar
>
> Untuk email selanjutnya pada pertanyaan baru (threat baru) jangan mereply
> treat lama.
>
> Mungkinkah seperti ini:
>
> Sub hapus()
> Dim y As Integer
> y = ActiveCell.Row   'mencari nomor baris cell yang aktif dimasukkan dalam
> variabel y
> Range("C" & y & ":F" & y).ClearContents  'menghapus cell Cy:Fy
> End Sub
>
>
> Salam
>
> NangAgus
>
> On 8/3/2017 5:43 PM, Fajar Fatahillah fajar.fatahil...@yahoo.com
> [belajar-excel] wrote:
>
>
> Dear Master excel,
>
> saya punya kode berikut ( download lebih tepatnya).. hehee
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Cells.Count > 1 Then Exit Sub
> If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
> With Target(1, 0)
> .Value = Date
> .EntireColumn.AutoFit
> End With
> End If
> End Sub
>
> maksud kode tersebut kurang lebih, kalau ada input data atau value di cell
> C2 misalnya, maka akan otomatis terisi tanggal di cell B2.
> yang ingin saya tanyakan, kalau misalnya buat macro delete satu baris dari
> B2:F2 misalnya (B2 tempat tgl otomatis tadi).. maka tanggal di B2 masih
> tetap ada dan tidak ikut kedelete ..
>
> Mohon pencerahannya para master semua
>
> Best Regards,
> Fajar Fatahillah
>
>
>
>
>
> 
>

Re: [belajar-excel] otomatis entri date setelah input data

[nangagus nanga...@gmail.com [belajar-excel]]

Dear Fajar

Untuk email selanjutnya pada pertanyaan baru (threat baru) jangan 
mereply treat lama.


Mungkinkah seperti ini:

Sub hapus()
Dim y As Integer
y = ActiveCell.Row   'mencari nomor baris cell yang aktif dimasukkan 
dalam variabel y

Range("C" & y & ":F" & y).ClearContents  'menghapus cell Cy:Fy
End Sub


Salam

NangAgus


On 8/3/2017 5:43 PM, Fajar Fatahillah fajar.fatahil...@yahoo.com 
[belajar-excel] wrote:

Dear Master excel,

saya punya kode berikut ( download lebih tepatnya).. hehee

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
    With Target(1, 0)
    .Value = Date
    .EntireColumn.AutoFit
    End With
    End If
End Sub

maksud kode tersebut kurang lebih, kalau ada input data atau value di 
cell C2 misalnya, maka akan otomatis terisi tanggal di cell B2.
yang ingin saya tanyakan, kalau misalnya buat macro delete satu baris 
dari B2:F2 misalnya (B2 tempat tgl otomatis tadi).. maka tanggal di B2 
masih tetap ada dan tidak ikut kedelete ..


Mohon pencerahannya para master semua
Best Regards,
Fajar Fatahillah