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("TAHAKKUK TESLİM").Range("F5:F65536"))
Sheets("TAHAKKUK TESLİM").Range("A" & a + 5) = a + 1
Sheets("TAHAKKUK TESLİM").Range("H" & a + 5) = [s6]
Sheets("TAHAKKUK TESLİM").Range("I" & a + 5) = [o14]
Sheets("TAHAKKUK TESLİM").Range("F" & a + 5) = [r41]
Sheets("TAHAKKUK TESLİM").Range("E" & a + 5) = [m37] + [m38] + [m39] + [m40]
Sheets("TAHAKKUK TESLİM").Range("G" & a + 5) = [f14] & "." & [g14] & "." & [h14] & "." & [ı14] & "-" & [j14] & "-" & [k14] & "." & [l14] & "." & [m14] & "." & [n14]
a = WorksheetFunction.CountA(Sheets("İCMAL").Range("F3:F65536"))
Sheets("İCMAL").Range("A" & a + 3) = a + 1
Sheets("İCMAL").Range("B" & a + 3) = [u6]
Sheets("İCMAL").Range("C" & a + 3) = [r42]
Sheets("İCMAL").Range("D" & a + 3) = [u1]
Sheets("İCMAL").Range("E" & a + 3) = [r41]
Sheets("İCMAL").Range("G" & a + 3) = [r42]
Sheets("İCMAL").Range("H" & a + 3) = [m38]
End Sub
fomül bu : Aktar butonuna tıkladığımda "Tahakkuk Teslim" ve "İcmal" Listesine Aktarma yapıyor ,Fakat Tahakkuk Teslimde aktarılan bilgileri sildiğim de yine 3.satırdan başlarken İcmalde bunu yapmıyor İcmalde en son aktardığı satıra yazmaya devam ediyor önceki satırları silsemde yine devam ediyor yardımlarınız için şimdiden tüm form üyelerine teşekkürler.
a = WorksheetFunction.CountA(Sheets("TAHAKKUK TESLİM").Range("F5:F65536"))
Sheets("TAHAKKUK TESLİM").Range("A" & a + 5) = a + 1
Sheets("TAHAKKUK TESLİM").Range("H" & a + 5) = [s6]
Sheets("TAHAKKUK TESLİM").Range("I" & a + 5) = [o14]
Sheets("TAHAKKUK TESLİM").Range("F" & a + 5) = [r41]
Sheets("TAHAKKUK TESLİM").Range("E" & a + 5) = [m37] + [m38] + [m39] + [m40]
Sheets("TAHAKKUK TESLİM").Range("G" & a + 5) = [f14] & "." & [g14] & "." & [h14] & "." & [ı14] & "-" & [j14] & "-" & [k14] & "." & [l14] & "." & [m14] & "." & [n14]
a = WorksheetFunction.CountA(Sheets("İCMAL").Range("F3:F65536"))
Sheets("İCMAL").Range("A" & a + 3) = a + 1
Sheets("İCMAL").Range("B" & a + 3) = [u6]
Sheets("İCMAL").Range("C" & a + 3) = [r42]
Sheets("İCMAL").Range("D" & a + 3) = [u1]
Sheets("İCMAL").Range("E" & a + 3) = [r41]
Sheets("İCMAL").Range("G" & a + 3) = [r42]
Sheets("İCMAL").Range("H" & a + 3) = [m38]
End Sub
fomül bu : Aktar butonuna tıkladığımda "Tahakkuk Teslim" ve "İcmal" Listesine Aktarma yapıyor ,Fakat Tahakkuk Teslimde aktarılan bilgileri sildiğim de yine 3.satırdan başlarken İcmalde bunu yapmıyor İcmalde en son aktardığı satıra yazmaya devam ediyor önceki satırları silsemde yine devam ediyor yardımlarınız için şimdiden tüm form üyelerine teşekkürler.