merhaba arkadaşlar benim elimde bir dosya var ve burada oluşturduğum bir userform var buda işlemlerimi yaptıktan sonra bilgileri yazdırırken yapmış olduğum işlemi başka başka bir sayfaya bu kodlarla aktarıyorum ama sorunum şu hep ilk satıra yazıyor bir alttaki satıra yazmıyor ben boş olam satıra yazmasını istiyorum bana yardımcı olursanız çok sevinirim kolar şunlar
If mesaj = vbYes Then a = WorksheetFunction.CountA(Sheets("a").Range("a2:a65536"))
Sheets("veri").Range("A" & a + 2) = a + 1
Sheets("veri").Range("b" & a + 2) = [a2]
Sheets("veri").Range("c" & a + 2) = [v12]
Sheets("veri").Range("d" & a + 2) = [r21]
If mesaj = vbYes Then a = WorksheetFunction.CountA(Sheets("a").Range("a2:a65536"))
Sheets("veri").Range("A" & a + 2) = a + 1
Sheets("veri").Range("b" & a + 2) = [a2]
Sheets("veri").Range("c" & a + 2) = [v12]
Sheets("veri").Range("d" & a + 2) = [r21]