aligunes
Altın Üye
- Katılım
- 2 Mart 2005
- Mesajlar
- 304
- Excel Vers. ve Dili
- Ofis 2016 TR 32 Bit
- Altın Üyelik Bitiş Tarihi
- 09-06-2025
Sub aktar1()
a = WorksheetFunction.CountA(Sheets("LİSTE").Range("G5:G65536"))
Sheets("LİSTE").Range("A" & a + 5) = a + 1
Sheets("LİSTE").Range("H" & a + 5) = [s6]
Sheets("LİSTE").Range("I" & a + 5) = [o14]
Sheets("LİSTE").Range("F" & a + 5) = [r41]
Sheets("LİSTE").Range("E" & a + 5) = [m37] + [m38] + [m39] + [m40]
Sheets("LİSTE").Range("G" & a + 5) = [f14] & "." & [g14] & "." & [h14] & "." & [ı14] & "-" & [j14] & "-" & [k14] & "." & [l14] & "." & [m14] & "." & [n14]
Kodlarım bu excel "LİSTE" sayfasına aktarma yapıyor ve bu sayfada G sutununun dolu olup olmadığını esas alarak bir alt satıra aktarma yapıyor benim sormak istediğim bu aktarmayı yaparken örnek 36.sırayı yazdığında uyarı vermesini istiyorum "Liste Doldu Kontrol ediniz" şeklinde yardımlarınız için teşekkürler.
a = WorksheetFunction.CountA(Sheets("LİSTE").Range("G5:G65536"))
Sheets("LİSTE").Range("A" & a + 5) = a + 1
Sheets("LİSTE").Range("H" & a + 5) = [s6]
Sheets("LİSTE").Range("I" & a + 5) = [o14]
Sheets("LİSTE").Range("F" & a + 5) = [r41]
Sheets("LİSTE").Range("E" & a + 5) = [m37] + [m38] + [m39] + [m40]
Sheets("LİSTE").Range("G" & a + 5) = [f14] & "." & [g14] & "." & [h14] & "." & [ı14] & "-" & [j14] & "-" & [k14] & "." & [l14] & "." & [m14] & "." & [n14]
Kodlarım bu excel "LİSTE" sayfasına aktarma yapıyor ve bu sayfada G sutununun dolu olup olmadığını esas alarak bir alt satıra aktarma yapıyor benim sormak istediğim bu aktarmayı yaparken örnek 36.sırayı yazdığında uyarı vermesini istiyorum "Liste Doldu Kontrol ediniz" şeklinde yardımlarınız için teşekkürler.