Hücre dolu ise bir alt hücreye veri yazdırmak.

[dsdfsd]

Merhaba üstadlar,

Şöyle bir sıkıntım var. Kısaca özetlemeye çalışacağım.

1.Sayfa ve 2.Sayfa olmak üzere toplam 2 Sayfa mevcut.

1.Sayfa 'nın A1 hücresine "ALİ" yazdığım zaman bunu 2.Sayfa' nın A1 hücresine =+Sayfa1!A1 komutuyla otomatik olarak kopyalatıyorum. Buraya kadar sıkıntım yok.

Fakat istediğim şu;

1.Sayfa 'nın A1 hücresine "ALİ" yazdıktan sonra;

Aynı hücreye yani (A1)"ALİ" yazılı olan yere "ALİ" 'yi silip "VELİ" yazdığım zaman 2.Sayfa 'da "ALİ" yi silmeden bir alt satırına da "VELİ yazmasını istiyorum.

Veri girişi SADECE 1.Sayfa da bulunan A1 hücresine yapılacak. Fakat her girilen yeni veri 2.Sayfa 'da alt alta yazılarak liste oluşturacak.

Yardımcı olabilecek üstedlara şimdiden teşekkürler.

 

[Orion1]

Formülle olmaz.
dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Target.Value
End Sub

 

[dsdfsd]

Hızlı dönüş ve çözümünüz için çok teşekkür ederim.
Bunu ekteki dosyaya nasıl uygulayabilirim.
Yardımınız için çok teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları sayfa1'in kod sayfasına yapıştırınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
a = Sheets("sayfa2").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("sayfa2").Cells(a, 1) = "" Then
Sheets("sayfa2").Cells(a, 1) = Target
Else
Sheets("sayfa2").Cells(a + 1, 1) = Target
End If
Target.Select
End Sub

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long, sh As Worksheet
If Intersect(Target, [D3]) Is Nothing Then Exit Sub
If Range("D3").Value = "" Then
    MsgBox "Lütfen D3 hücresine Fatura Numarasını giriniz." & vbLf & "İşlem Gerçekleşmedi", vbCritical, "UYARI"
    Range("D3").Select
End If
Set sh = Sheets("KDV")
sat = sh.Cells(Rows.Count, "B").End(xlUp).Row + 1
sh.Cells(sat, "B").Value = Cells(3, "D").Value
sh.Cells(sat, "C").Value = Cells(4, "D").Value
sh.Cells(sat, "D").Value = Cells(6, "C").Value
sh.Cells(sat, "E").Value = Cells(51, "K").Value
sh.Cells(sat, "F").Value = Cells(52, "K").Value
sh.Cells(sat, "G").Value = Cells(53, "K").Value
End Sub

 

[dsdfsd]

Sayın orion1 dostum,
Ne desem az çok ama çok teşekkür ederim. Tam istediğim gibi olmuş. Yaklaşık 20 yıldır ikinci el bilgisayar işi ile uğraşıyorum ihtiyacınız olan bir şey olursa lütfen çekinmeden benimle iletişime geçin. Ürünlerimizi sitemizden görebilirsiniz. Yardımcı olmak isterim. İsmim Burcuhan şirketin sahibiyim. Desteğiniz için tekrar teşekkür ederim. www.ikincielegel.com veya vipteknoloji.com

 

[Orion1]

Rica ederim.
iyi çalışmalar.

 

[ascon]

Benim ricam bende sayfa3 deki a5 b5 c5.... h5 e kadar olan satırdaki bilgileri user formla command butona basarak yazdırıyorum. benim istediğim bu bilgilerin gunluk sayfamdaki a5 b5 c5 satırlara eklemesi ve her command buttona basınca sayfa 3 de yazan bilgiyi gunluk sayfamdaki bir alt satıra yazabilmesi.