Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("2019 BETON")
Set pasteSheet = Worksheets("fatura")
copySheet.Range("A2,C2,E2,M2,W2,X2,AI2,AK2").Copy
pasteSheet.Cells(Rows.Count, 32).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Merhabalar...
Yukarıdaki kod ile filtrelenmiş bir sayfadan (2019 BETON) belirli hücreleri kopyalamak istiyorum.Fakat bu kod ile filtreleme yapsamda A2 hücresini ve diğerlerini kopyalıyor.Filtrelendikten sonra A2 yerine gelen hücreyi nasıl kopyalayabilirim?
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("2019 BETON")
Set pasteSheet = Worksheets("fatura")
copySheet.Range("A2,C2,E2,M2,W2,X2,AI2,AK2").Copy
pasteSheet.Cells(Rows.Count, 32).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Merhabalar...
Yukarıdaki kod ile filtrelenmiş bir sayfadan (2019 BETON) belirli hücreleri kopyalamak istiyorum.Fakat bu kod ile filtreleme yapsamda A2 hücresini ve diğerlerini kopyalıyor.Filtrelendikten sonra A2 yerine gelen hücreyi nasıl kopyalayabilirim?
