Hai,
Saya bekerja Excel 2013,
Saya memerlukan Autofilter "#N/A" di kolom "F", jika memfilter "#N/A" tidak ada data dengan heading, kode "Goto 0:" tidak ...
tapi, kode saya tidak berfungsi, goto 0:
Sub tesss()
'Filter Sisipkan dan #N/A Salin dan Tempel
'VBA - Matikan Filter Otomatis Dari Kode
Jika ActiveSheet.AutoFilterMode Kemudian
ActiveSheet.AutoFilterMode = Salah 'ActiveSheet.Range("A1").AutoFilter ---> Aktifkan Autofilter
End If
'Filter Otomatis Filter Sel Kosong Kolom ke-2
Redup Baris Terakhir Selamanya
Baris Terakhir = Rentang("B" & Baris.Jumlah).End(xlUp).Baris
On Error Resume Next 'jika filter maka tidak ada data, lanjutkan
ActiveSheet.Range("$A$1:$F" & LastRow).Filter AutoFilter:=6, Criteria1:="#N/A" 'Sel Tidak Berlaku filter lalu pilih sel yang terlihat
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Pilih
'Hentikan salin tempel jika rentang yang difilter tidak memiliki data
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Pilih
Seleksi.Salin
'Kode Lakukan Sesuatu.........
Application.CutCopyMode = Salah
Lain
ActiveSheet.AutoFilterMode = Salah
Pergi ke 0:
End If
'Kode Lakukan Sesuatu.........
0:
End Sub
Mohon bantu saya, terima kasih sebelumnya
Hentikan salin tempel jika rentang yang difilter tidak memiliki data.zip
Hentikan salin tempel jika rentang yang difilter tidak memiliki data.zip
Saya bekerja Excel 2013,
Saya memerlukan Autofilter "#N/A" di kolom "F", jika memfilter "#N/A" tidak ada data dengan heading, kode "Goto 0:" tidak ...
tapi, kode saya tidak berfungsi, goto 0:
Sub tesss()
'Filter Sisipkan dan #N/A Salin dan Tempel
'VBA - Matikan Filter Otomatis Dari Kode
Jika ActiveSheet.AutoFilterMode Kemudian
ActiveSheet.AutoFilterMode = Salah 'ActiveSheet.Range("A1").AutoFilter ---> Aktifkan Autofilter
End If
'Filter Otomatis Filter Sel Kosong Kolom ke-2
Redup Baris Terakhir Selamanya
Baris Terakhir = Rentang("B" & Baris.Jumlah).End(xlUp).Baris
On Error Resume Next 'jika filter maka tidak ada data, lanjutkan
ActiveSheet.Range("$A$1:$F" & LastRow).Filter AutoFilter:=6, Criteria1:="#N/A" 'Sel Tidak Berlaku filter lalu pilih sel yang terlihat
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Pilih
'Hentikan salin tempel jika rentang yang difilter tidak memiliki data
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Pilih
Seleksi.Salin
'Kode Lakukan Sesuatu.........
Application.CutCopyMode = Salah
Lain
ActiveSheet.AutoFilterMode = Salah
Pergi ke 0:
End If
'Kode Lakukan Sesuatu.........
0:
End Sub
Mohon bantu saya, terima kasih sebelumnya
Hentikan salin tempel jika rentang yang difilter tidak memiliki data.zip
Hentikan salin tempel jika rentang yang difilter tidak memiliki data.zip