Veriyi her sekmeye ilave etmek

[ytmercan]

Merhabalar

bi çalışma yapmak istiyorum. sayfa1 de veri doğrulama sisteme ile bir liste yaptım.veri sütununda olmayan bir girdiyi "B" hücresine yazdığım zaman ikaz veriyor ve veri listesinde olmayan girdiyi veri listesinin sonuna yazdığımda sorun çözülüyor... fakat sorum şu;

yeni girdiyi diğer sekmelerdeki verinin en alt satırına nasıl ekleyebilirim.

 

[İhsan Tank]

Merhabalar

bi çalışma yapmak istiyorum. sayfa1 de veri doğrulama sisteme ile bir liste yaptım.veri sütununda olmayan bir girdiyi "B" hücresine yazdığım zaman ikaz veriyor ve veri listesinde olmayan girdiyi veri listesinin sonuna yazdığımda sorun çözülüyor... fakat sorum şu;

yeni girdiyi diğer sekmelerdeki verinin en alt satırına nasıl ekleyebilirim.

merhaba
Sayfa1'in kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2:G65536")) Is Nothing Then Exit Sub
Call kopya
End Sub

bu kodu
boş bir module

Sub kopya()
Columns("G:G").Select
Selection.Copy
Sheets("Sayfa2").Select
Columns("G:G").Select
ActiveSheet.Paste
Sheets("Sayfa2").Range("B2").Select
Sheets("Sayfa3").Select
Columns("G:G").Select
ActiveSheet.Paste
Sheets("Sayfa3").Range("B2").Select
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("B2").Select
Application.CutCopyMode = False
End Sub

bu kodu yazarak dener misiniz
eki inceleyiniz

 

[ytmercan]

merhaba
Sayfa1'in kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2:G65536")) Is Nothing Then Exit Sub
Call kopya
End Sub

bu kodu
boş bir module

Sub kopya()
Columns("G:G").Select
Selection.Copy
Sheets("Sayfa2").Select
Columns("G:G").Select
ActiveSheet.Paste
Sheets("Sayfa2").Range("B2").Select
Sheets("Sayfa3").Select
Columns("G:G").Select
ActiveSheet.Paste
Sheets("Sayfa3").Range("B2").Select
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("B2").Select
Application.CutCopyMode = False
End Sub

bu kodu yazarak dener misiniz
eki inceleyiniz

Sayfa2 deki değişikliği sayfa3 e nasıl aktarıcam peki? girift bir yola doğru gidiyorum kanımca