aktif sayfadaki veriyi başka sayfaya alt alta aktarma

[aydın3838]

selam ustalar

Makronun butonla değil sayfaya veri girilince çalışması adlı soruyu wessemeth

isimli arkadaşımız sormuş ama benim projem de farkı

örnekte detaylı şekilde anlattım bakılırsa sorun açıkça ortadadır

userformla sayfaya girdiğim veriyi kasa adındaki sayfaya alt alta kopyalaması

ve silinmemesi örnek dosyada detaylı anlatımı var incelenirse olay ortada

yaklaşık bir aydır arıyorum ama bulamadım
girilen yeni veriler sürekli eskisinin üzerine kopyalandığından
eskilir gidiyor

 

[aydın3838]

cevap alamadık arkadaşlar çokmu zor acaba

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[aydın3838]

selamlar
ellerinize sağlık çok güzel olmuş teşekkürler

fakat sadece tarih girilince tahsilat bölümünü yollucak

teşekkürler

 

[dEdE]

Merhaba,
Kodların aşağıdaki satırları arasına kırmızı satırı ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]If Intersect(Target, [A8:A31]) Is Nothing Then Exit Sub[/COLOR]
Set s1 = Sheets("Sayfa1kasa")

 

[aydın3838]

sayın dede bu ilginiz ve çabukluğunuz çok memnun ediyo insanı

tekrar teşekkürler

şimdi deniyorum

 

[aydın3838]

peki hocam ben sürekli (müşteri kartı isimli Şablon) sayfayı Her müşteriye ayrı ayrı

kopyalıyorum sizin yolladığınız kodlarla sadece aynı sayfadan kopyalama yapılıyor yeni eklenecek sayfalarda nasıl bir kod gerekiyor

anlatamadıysam yaptığım projeyi yollarım

 

[dEdE]

Merhaba,
Sayfanın kod bölümündeki kodları silin.
Aşağıdaki kodları ThisWorkbook kod bölümüne yapıştırın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Sayfa1kasa" Then Exit Sub
If Intersect(Target, [A8:A31]) Is Nothing Then Exit Sub

Set s1 = Sheets("Sayfa1kasa")
Set s2 = ActiveSheet
ss1 = s1.[A65536].End(3).Row + 1
ss2 = s2.[A65536].End(3).Row
With s1
    .Cells(ss1, 1).Value = s2.[B1].Value
    .Cells(ss1, 2).Value = s2.[B2].Value
    .Cells(ss1, 3).Value = s2.Cells(ss2, 1).Value
    .Cells(ss1, 4).Value = s2.Cells(ss2, 8).Value
End With

End Sub

 

[aydın3838]

teşekkürler hocam

 

[dEdE]

Rica ederim.
Güle güle kullanın.