VERİ ÇAĞIRMA İLE İLGİLİ YARDIM

[wikail]

Merhaba . Dökümanımda birden fazla sayfa var . Ben örnek olarak 1 nolu sayfamdaki A1 hücresindeki veriyi 2 nolu sayfamdaki C2 hücresine yazdırıyorum . (= ile )
Fakat ben bu A1 hücresindeki veriyi değiştirdiğimde alt satıra geçip yazsın istiyorum . Böyle bir şey mümkün mü acaba ? İlk sayfamda müşterim için kayıt oluşturuyorum ve çıktısını alıyorum diğer sayfada ise bunları alt alta kaydetsin istiyorum . Şimdiden yardımlarınız için teşekkür ederim.

 

[Necdet]

Merhaba,

Sayfa1 A1 hücresindeki veriyi her değiştirdiğinizde bu değerin Sayfa2 de C2 sonra C3 Sonra C4 .... olarak aktarılmasını mı istiyorsunuz?

Yani Sayfa1 A1 hücresi her değiştiğinde Sayfa2 de C sütunun son satırına eklensin mi diyorsunuz?

 

[wikail]

Merhaba,

Sayfa1 A1 hücresindeki veriyi her değiştirdiğinizde bu değerin Sayfa2 de C2 sonra C3 Sonra C4 .... olarak aktarılmasını mı istiyorsunuz?

Yani Sayfa1 A1 hücresi her değiştiğinde Sayfa2 de C sütunun son satırına eklensin mi diyorsunuz?

Cevabınız için teşekkür ederim . Evet kasttettiğim bu . Müşteriyi ilk sayfadan kaydedeceğim . Ve bunları sayfa 2 ye aktarcak . Ama ilk sayfadan başka müşteri kaydettiğimde bu satır silinmesin altına yeni olarak atasın dileğim . Tekrar teşekkür ederim.

 

[Necdet]

Merhaba,
Aşağıdaki kodları Sayfa1'in kod bölümüne kopyalayın. A1 hücresinde değişiklik olduğunda Sayfa2 C sütununun son satırına kopyalar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Sheets("Sayfa2").Cells(Sheets("Sayfa2").Cells(Rows.Count, "C").End(3).Row + 1, "C") = Target.Value
End Sub

 

[wikail]

Merhaba,
Aşağıdaki kodları Sayfa1'in kod bölümüne kopyalayın. A1 hücresinde değişiklik olduğunda Sayfa2 C sütununun son satırına kopyalar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Sheets("Sayfa2").Cells(Sheets("Sayfa2").Cells(Rows.Count, "C").End(3).Row + 1, "C") = Target.Value
End Sub

Çok teşekkür ederim .

 

[Antknight]

Bu Kodlar acaba fonksiyonla olmaz mı? Benim de sorunuma benziyor aslında.. sayfa2+sayfa3..4..5 deki A sütunlarının sayfa1 de ki A sütununda tek sütun haline gelmesini arzu ediyorum. İlgi ve Yardımlarına teşekkür ederim. Fonksiyon olursa üzerinde farklı değişiklikler yapabilir sizi de fazla meşgul etmiş olmam diye düşünüyorum. Malesef Vba bilgim hayli az