Selamlar elimde bir excelim var burada ben bir makro geliştirdim. Makronun özeti sayfa 2 deki verileri sayfa 1 de boş bulduğu yere direk kopyalayıp yapıştırmak. Fakat şöyle bir koşul eklemem gerekli. B sütununda en son hangi şiir tipi girildiyse onun verilerini getirmesi gerekli. Bunu nasıl yapabilirim?
Sub Makro5()
Sheets("Sayfa2").Range("A2:A102").Copy
Sheets("Sayfa1").Select
son = [d1048576].End(3).Row
If son = 1 And [a1] = "" Then son = 0
Range("d" & son + 1).Select
ActiveSheet.Paste
End Sub
Sub Makro5()
Sheets("Sayfa2").Range("A2:A102").Copy
Sheets("Sayfa1").Select
son = [d1048576].End(3).Row
If son = 1 And [a1] = "" Then son = 0
Range("d" & son + 1).Select
ActiveSheet.Paste
End Sub
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
