Sayfa1 A1 deki veriyi Sayfa2 A sütununa altalta kayıt etme

[vefki]

arkadaşlar bende gruba yeni katıldım
sorunum:
sayfa 1 de a1 hücresine değer giriyorum.
sayfa 2 de a1 hücresine kayıt yapsın. daha sonra
sayfa 1 de başka değer girdiğimde
sayfa 2 de a2 hücresine kayıt yapsın...
yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Merhaba

Ã?ncelikle hoşgeldiniz, lütfen sorunuzu ayrı bir başlık açarak sormaya özen gösterin.

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayıp deneyin.

[vb:1:0af42d65d0]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
say = WorksheetFunction.CountA(Sheets("sayfa2").[a1:a65536])
Sheets("sayfa2").Cells(say + 1, "a") = Target
End Sub[/vb:1:0af42d65d0]

 

[mEhXmCEtL]

Merhaba

Ã?ncelikle hoşgeldiniz, lütfen sorunuzu ayrı bir başlık açarak sormaya özen gösterin.

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayıp deneyin.

[vb:1:b0598a72a7]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
say = WorksheetFunction.CountA(Sheets("sayfa2").[a1:a65536])
Sheets("sayfa2").Cells(say + 1, "a") = Target
End Sub[/vb:1:b0598a72a7]

SAYIN LEVENTM BU KODU SAYFA1 HÜCRELERİ ARTIRARAK(A1,A2,A3,A4....A10 ÞEKLİNDE) SAYFA 2 YE AYNI ÞEKİLDE UYGULANMIÞ KODUNU GÃ?NDEREBİLİRMİSİNİZ TEÞEKKÜRLER...

 

[mEhXmCEtL]

Merhaba

Ã?ncelikle hoşgeldiniz, lütfen sorunuzu ayrı bir başlık açarak sormaya özen gösterin.

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayıp deneyin.

[vb:1:2366ea8575]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
say = WorksheetFunction.CountA(Sheets("sayfa2").[a1:a65536])
Sheets("sayfa2").Cells(say + 1, "a") = Target
End Sub[/vb:1:2366ea8575]

SAYIN LEVENTM BU KODU SAYFA1 HÜCRELERİ ARTIRARAK(A1,A2,A3,A4....A10 ÞEKLİNDE) SAYFA 2 YE AYNI ÞEKİLDE UYGULANMIÞ KODUNU GÃ?NDEREBİLİRMİSİNİZ TEÞEKKÜRLER...

PARDON LEVETM A1,A2 DEÐİL A1,B1,C1 ÞEKLİNDE SORMAK İSTEMİÞTİM

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:3ba4ae137a]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [1:1]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountA(Sheets("sayfa2").[a1:a65536])
Sheets("sayfa2").Cells(say + 1, "a") = Target
End Sub
[/vb:1:3ba4ae137a]