- Katılım
- 27 Ekim 2023
- Mesajlar
- 2
- Excel Vers. ve Dili
- excel 365 türkçe
Merhaba arkadaşlar,
Excel dosyamda "Genel Maddeler" sayfasında yer alan seçili alanın kopyalanıp "Firma" sayfasındaki ilk boş satıra kopyalanması ile ilgili aşağıdaki kodu yazdım. Bunun gibi yaklaşık 100 makro yazacağım. Ancak bir sıkıntı oluyor.
1. makroyu çalıştırdığımda istediğimi yapıp diğer sayfadaki ilk boş satırdan başlayarak kopyalama yapıyor burada bir sıkıntı yok, problem 2. veya 3. makroyu çalıştırdığımda ilk boş satırdan değilde bir önceki kopyalanan hücrelerin üzerine kopyalama yapıyor.
Benim istediğim ise seçilen makroları çalıştırdıkça diğer sayfaya kopyalama yapacak ve her makro çalıştıktan sonra bir önceki kopyalamanın altındaki ilk boş satırdan başlaması,
Nerede yanlışlık yapıyorum. Değerli yorumlarınızı rica ederim.
Excel dosyamda "Genel Maddeler" sayfasında yer alan seçili alanın kopyalanıp "Firma" sayfasındaki ilk boş satıra kopyalanması ile ilgili aşağıdaki kodu yazdım. Bunun gibi yaklaşık 100 makro yazacağım. Ancak bir sıkıntı oluyor.
1. makroyu çalıştırdığımda istediğimi yapıp diğer sayfadaki ilk boş satırdan başlayarak kopyalama yapıyor burada bir sıkıntı yok, problem 2. veya 3. makroyu çalıştırdığımda ilk boş satırdan değilde bir önceki kopyalanan hücrelerin üzerine kopyalama yapıyor.
Benim istediğim ise seçilen makroları çalıştırdıkça diğer sayfaya kopyalama yapacak ve her makro çalıştıktan sonra bir önceki kopyalamanın altındaki ilk boş satırdan başlaması,
Nerede yanlışlık yapıyorum. Değerli yorumlarınızı rica ederim.
Kod:
Sheets("GENEL MADDELER").Select
Range("A18:AB21").Select
Selection.Copy
sat = Sheets("FİRMA").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("FİRMA").Select
Range("A" & sat).PasteSpecial
Sheets("GENEL KONU BAŞLIKLARI").Select
Range("B6").Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
MsgBox "Kopyalama Yapıldı..!!"
End Sub