Makro ile veri kaydı

[excelience]

merhaba arkadaslar sorum excelde mevcut buradan da yazayım
*sayfa1 de girdigim degerleri makro ile kaydettigim zaman
sayfa 2 de her kayıtta bir alt satıra kaydetmesini istiyorum
emekleriniz ilginiz icin cok tesekkurler

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub kaydet()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
yeni = s2.Cells(Rows.Count, "D").End(3).Row + 1
s2.Cells(yeni, "D") = s1.[G5]
s2.Cells(yeni, "E") = s1.[G6]
s2.Cells(yeni, "F") = s1.[G7]
End Sub

 

[Ömer BARAN]

Merhaba.

Alternatif olsun.
-- Eksik bilgi olduğunda uyarı vererek, kayıt yapmamasında,
-- Bilgiler tamam ise kayıt sonrasında veri giriş alanının boşaltılmasında
yarar var bence, ayrıca Sayfa2'nin F sütununu TARİH olarak biçimlendirin.
.

[B]Sub KAYDET()[/B]
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
If s1.[G5] = "" Or s1.[G6] = "" Or s1.[G7] = "" Then
    [COLOR="Blue"]MsgBox "Eksik veri var.[/COLOR]": Exit Sub
Else
    sat = s2.Cells(Rows.Count, 4).End(3).Row + 1
    s2.Cells(sat, 4) = s1.[G5]
    s2.Cells(sat, 5) = s1.[G6]
    s2.Cells(sat, 6) = s1.[G7]
[COLOR="blue"]    s1.Range("G5:G7") = ""
    MsgBox "Veriler diğer sayfaya kaydedildi."[/COLOR]
End If
[B]End Sub[/B]

 

[excelience]

Yusuf hocam ömer hocam çok teşekkür ediyorum her ikinize de süpersiniz