sayfalar arası veri kopyalama

[ozgurche]

Merhabalar, ekte göndermiş olduğum dosyada; K sütununa veriler eklendikçe (K1, K2,K3,K4,K5,K6.. Kn), Sayfa2 de A sütununa aynı şekilde (A1,A2,A3,A4…..An) nasıl ekleyebiliriz?

 

[dEdE]

Merhaba,
Aşağıdaki kodu Sayfa1 in kod bölümüne yapıştırıp dener misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Cells(Target.Row, 1).Value = Target.Value
End Sub

 

[ozgurche]

Verdiğiniz kod ile olmuyor.

 

[dEdE]

Verdiğiniz kod ile olmuyor.

???
Olmayan nedir?
Sayfa1 K sütununda herhangibir hücreye veri girerseniz, aynısını Sayfa2 de aynı satırın A sütununa yazıyor.
Sizin isteğiniz de bu değil mi?

 

[ozgurche]

Öncelikle yardımınız için teşekkür ederim. Sayfa 1 K sütununda verileri sildiğim zaman, sayfa 2 de A sütunundaki veriler silinmiyor.
Teşekkürler.

 

[apocalyt]

sayfa 2 a1 hücresine kopyalayıp aşağıya çekin..

=eğer(Sayfa1!K2<>"";Sayfa1!K2;"")

 

[dEdE]

...Sayfa 1 K sütununda verileri sildiğim zaman, sayfa 2 de A sütunundaki veriler silinmiyor...

Merhaba,

İlk mesajınız "... K sütununa veriler eklendikçe ...Sayfa2 de A sütununa aynı şekilde ... nasıl ekleyebiliriz..." şeklinde idi. Yani silinmenin "S" si bile yoktu. Kod ona göre yazıldı.

Sonra "Verdiğiniz kod ile olmuyor. " dediniz ama olmayan nedir belirtmediniz. Ancak 3. mesajınızda anlayabildik verileri ekleyip silmek istediğinizi.

Makro-VBA başlığına yazdığınız için de formülle çözüm önermedim.

Sonuç: Türkçemizi iyi kullanamayınca birbirimizle anlaşamıyoruz. Sorunlar da buradan çıkıyor çoğunlukla. Ne demiş atalarımız. Derdini söyle(ye)meyen, dermanını bulamaz.

Hoşçakalın.

Bir de böyle deneyelim.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
    Sheets("Sayfa2").Range("A:A").Value = Range("K:K").Value
End Sub

 

[ozgurche]

Hocam doğru söylüyorsunuz silme işini yazmamıştım. Şimdi oldu teşekkür ederim.