Hayırlı akşamlar arkadaşlar. Ekli dosyamda buton ile sayfa 1 ie 3 ten sayfa 2 ye alt alta bilgi aktarmak istiyorum. Aktarma yapıyor yalnız sayfa toplamı aldığım için toplamın altından aktarmaya başlıyor. Yardımlarınızı bekliyorum.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bilgi aktar
- Konbuyu başlatan sedat2161
- Başlangıç tarihi
- Katılım
- 18 Ağustos 2007
- Mesajlar
- 22,183
- Excel Vers. ve Dili
- Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,
rows.count yerine tablodaki son satır olan 8 yazmalısınız.
Yalnız 7 satır dolunca artık yeni satıra aktarma yapmaz.
rows.count yerine tablodaki son satır olan 8 yazmalısınız.
Yalnız 7 satır dolunca artık yeni satıra aktarma yapmaz.
Kod:
Private Sub CommandButton1_Click()
Set s1 = Sheets("Bilgi Giriş")
Set s2 = Sheets("veri")
Set s3 = Sheets("öğün")
yeni = s2.Cells(8, "C").End(3).Row + 1
s2.Cells(yeni, "C") = s1.[e9]
s2.Cells(yeni, "d") = s3.[d6]
End Sub