Bir sabit yardımıyla sayfadan sayfaya veri aktarmak

[_BozoK_]

Soruyu kitap1.xls içinde yazdım.Yardımcı olursanız sevinirimm..

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1in kod sayfasına kopyalayın. B sütununa yazdığınız tur ismine göre ilgili sayfaya aktaracaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Set s1 = Sheets("" & Target)
son = WorksheetFunction.CountA(s1.[a:a]) + 1
s1.Range("a" & son & ":f" & son) = Range("a" & Target.Row & ":f" & Target.Row).Value
End Sub

 

[_BozoK_]

Cok teşekkur ederim kod işimi gordu.
Sanırım bu visiual basic dili ben cok az biliyorum aslında bu yazdıgınız kodlarıda ilk defa gordum acaba bu kaynaklara nerden ulaşabilirim dokuman veya adres varmı?

 

[_BozoK_]

?

Son bi sorim daha olacak kitap1 örneğine ek olarak verdiğiniz bu kodda B:B deki isimleri okuyup A ile F deki tüm bilgileri o sayfaya atıodu bide buna ek olarak aynı Sayfa1 de G:G alanına girdiğim örneğin aa değerini aa sayfasına atacak ama bu sefer aa sayfasına atılıcak veriler belli sutunlardaki değerler olcak mesala A , B , H ve J yi atsın gibi yani diğer sayfaya atılcak verileri ayrı ayrı girebilirmiyiz.Yani b:b alanındaki veri ayrı bir işi g:g alanındaki veri ayrı bir işi yapsın istiyorum.