Verİ Aktarma

[EmirhanG]

Herkeslere merhaba..! Arkadaşlar ekdeki dosyada anlattığım konuda bana yardımcı ulurmusunuz.Şimdiden teşekürler:yardim:

 

[cyberwolf1980]

aklıma gelen tek cozum bagları kullanmak
emırhan sayfasına gelın ardından herhangı bır hucreye =GİRİŞ!B2 vs seklınde hucrelere bag atayın.

 

[tahsinanarat]

Ekli dosyanızı inceleyiniz

İsmin üzerine çift tıkladığınızda o isme ait kayıt aktarılacaktır, eğer sorunuzu doğru anlamış isem.

 

[tahsinanarat]

Başka Bir Altarnatif

Butona bastığınızda müşteri isimlerine göre güncelleme yapacak

 

[EmirhanG]

Arkadaşlar ilginize ve alakanıza gerçekten teşekürler ama ben tam anlatamadım galiba, benim 60 a yakın veresiye hesabı olan müşterim var günlük
alış verişde bulunuyorlar.Bu 60 müşterinin günlük işlemlerini GİRİŞ sayfasından
girip kendi sayfalarına ayrı ayrı uğraşmadan bir butonla aktarmak istiyorum.
TEŞEKÜRLER....))))

 

[aydgur]

sayfalar aktarma

Sub sayfalaraaktarA()
Sheets("giriş").Select
For x = 2 To [a65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[a65536].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(x, y + 1)

Next y
Next x
Sheets("giriş").Select
10 MsgBox "CARİLERE AKTARILDI"
End Sub
giriş sayfasındaki verilerin 1 den 14 dahil sütünlarda verileri aktarıyor.Bende bu forumda uyarlamıştım.eğer hala arıyorsanız diye...