başka sayfalara veri aktarımı

[yakupcinara]

arkadaşlar, giriş sayfasındaki bilgileri diğer sayfalara aktarmak istiyorum.
leventm. kardeşim yardımcı olabilirmisin

 

[Levent Menteşoğlu]

Burası bir paylaşım forumudur, sorulan sorulara tüm üyelerimiz cevap verebileceği için soruda tüm üyelerimize hitaben sorulmalıdır. Yeni bir konu açtığınızda lütfen isim belirterek kişiye yönelik soru sormayın.

 

[yakupcinara]

leventm

uyarınız için çok teşekkür ederim. yalnız, formda uzun bir süredir arama yaptım. kimseyi rahatsız etmemek için kendim yapmaya çalıştım. fakat yapamadım. tüm veri aktarımı sayflarında sizin isminizi gördüm. bu konuya çok iyi hakim olarak sizi gördüm. ondan dolayı sizin adınızı yazdım

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("giriş")
s1.[c13:f13].Copy Sheets("" & s1.[b13]).[b65536].End(3).Offset(1, 0)
End Sub

 

[yakupcinara]

teşekkür

Allah Razı olsun. Bilginize göre amel etmenizi nasip etsin. Allah bilginizin karşılığını kat be kat versin inşaallah.

 

[Levent Menteşoğlu]

Rica ederim. Temennileriniz için teşekkür ederim. Bende tüm forum dostları için aynı temennilerde bulunuyorum.

 

[Reyhani_60]

Merhaba. Yakupcinara kardeş. eğer bunu düzenlediysen banada gönderebilirmisin.? eklersen sayfaya sevinirim. hoş olmuş elinize sağlık. leventm e de teşekkürler..

 

[yakupcinara]

dosya eklenmiştir.

güzel bir fatura takip programı oldu. aynı zamanda ödemeleride girebiliyorsunuz otomatik olarak hesaptan düşüyor. yeni firma ekleyebilirsiniz. araçlardan koruma dan sayfa korumayı kaldırdığınız zaman değişiklik yapabilirsiniz. hayırlı olsun.

 

[yakupcinara]

dosya büyüktü kabul etmemiş

eklenmiştir.

 

[Reyhani_60]

Teşekkürler..

 

[levuu]

sayın yakupcinara
dosyanız hata veriyor excell 2000 kullanıyorum hata alıyorum hata mesajı




Sub aktar()
Set s1 = Sheets("giriş")
s1.[C7:f7].Copy Sheets("" & s1.[b7]).[b65536].End(3).Offset(1, 0)"" hata bu satırda alınıyor"
MsgBox "KAYIT GÜNCELLENMİŞTİR...!", vbInformation
[b7:f7].ClearContents
End Sub