Çözüldü Veri girişi

[hsyn25]

Sayfa 1 de a2hucresinde adi b2 hücresinde soyadi olsun.
Ekle tuşuna bastigimda sayfa 1 deki a2 ve b2 hucresindeki veri sayfa 2 de a2 ve b2 hucresine eklensin
Sayfa 1 deki a2ve b2 hücresi deki veriyi tekrar veya degistirerek ekle dedigi.de bu sefer sayfa 2 de a3 b3 hucresine atsin
Her ekle dugmesine tikladigimda bir alt satira nasil yazılir.kodu olan varsa yazsin.teşkekkurler simdiden.

 

[asax]

Merhaba, Deneyin

 

[hsyn25]

Merhaba, Deneyin

Çok teşekkürederim.ayni excel dosyasi üzerinde adi soyadi yazip ekle dedigimizde altına ekliyor.soneklenen daima 2.satira gelmesi için ne yapabiliriz.

 

[asax]

sondaki (+1) i sil
sonSatir = sayfa2.Cells(sayfa2.Rows.Count, "A").End(xlUp).Row + 1

 

[hsyn25]

sondaki (+1) i sil
sonSatir = sayfa2.Cells(sayfa2.Rows.Count, "A").End(xlUp).Row + 1

Aslinda anlatmak istedigim dosya şu.
Kapı kagidi sayfasina veri girisi yapiyoruz.sicil noya veri girince düseyaradan getiriyor.ekle makrasuyla kayit kapi kagidi sayfasina atiyor.ben son girilen kaydin 2.satira getirmesini istiyorum.veri girildikçe daha önce girilen kayit bir aşagi kaysin.ben burda bir calişma yaptim ama kayit kapi kagidi sayfasindan bütün kayitlari silince makro bozuluyor.kapi kagidi ayda 6 saatlik.dönemde 15ilemüteakip ayin 14 üarası.mesela 15.11.14.12.2023 kasim demek.

 

[hsyn25]

Aslinda anlatmak istedigim dosya şu.
Kapı kagidi sayfasina veri girisi yapiyoruz.sicil noya veri girince düseyaradan getiriyor.ekle makrasuyla kayit kapi kagidi sayfasina atiyor.ben son girilen kaydin 2.satira getirmesini istiyorum.veri girildikçe daha önce girilen kayit bir aşagi kaysin.ben burda bir calişma yaptim ama kayit kapi kagidi sayfasindan bütün kayitlari silince makro bozuluyor.kapi kagidi ayda 6 saatlik.dönemde 15ilemüteakip ayin 14 üarası.mesela 15.11.14.12.2023 kasim demek.

Son girilen veri kayit kapi kagidi sayfasinda en basa gelsin.veri eklendikce en son kayit en basta 2.satirda olsun.ama 2.kayittaki verileri veya kayit kapi kagidi sayfasindaki verilerimi silince makro bozulmadin.makromu kendime göre yaptim.siz düzeltebilirsiniz.

 

[asax]

hangi sayfada yazacaksanız o sayfanın sayfa kod kısmına ekle son yazılan üstte olur. sadece a1 için olan kodlar

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[asax]

hangi sayfada yazacaksanız o sayfanın sayfa kod kısmına ekle son yazılan üstte olur. sadece a1 için olan kodlar

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sayfa1 As Worksheet, sayfa2 As Worksheet, sonSatir As Long


Set sayfa1 = ThisWorkbook.Sheets("Sayfa1")
Set sayfa2 = ThisWorkbook.Sheets("Sayfa2")
If Not Intersect(Target, sayfa1.Range("A1")) Is Nothing Then
sonSatir = sayfa2.Cells(sayfa2.Rows.Count, "A").End(xlUp).Row
sayfa2.Range("A2:A" & sonSatir + 1).Value = sayfa2.Range("A1:A" & sonSatir).Value
sayfa2.Cells(1, 1).Value = sayfa1.Range("A1").Value
End If
End Sub

Aslinda anlatmak istedigim dosya şu.
Kapı kagidi sayfasina veri girisi yapiyoruz.sicil noya veri girince düseyaradan getiriyor.ekle makrasuyla kayit kapi kagidi sayfasina atiyor.ben son girilen kaydin 2.satira getirmesini istiyorum.veri girildikçe daha önce girilen kayit bir aşagi kaysin.ben burda bir calişma yaptim ama kayit kapi kagidi sayfasindan bütün kayitlari silince makro bozuluyor.kapi kagidi ayda 6 saatlik.dönemde 15ilemüteakip ayin 14 üarası.mesela 15.11.14.12.2023 kasim demek.

A1 VE B1 İÇİN
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[asax]

A1 VE B1 İÇİN
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sayfa1 As Worksheet, sayfa2 As Worksheet, sonSatir As Long
Set sayfa1 = ThisWorkbook.Sheets("Sayfa1")
Set sayfa2 = ThisWorkbook.Sheets("Sayfa2")
If Not Intersect(Target, sayfa1.Range("A1:B1")) Is Nothing Then
sonSatir = sayfa2.Cells(sayfa2.Rows.Count, "A").End(xlUp).Row
sayfa2.Range("A2:B" & sonSatir + 1).Value = sayfa2.Range("A1:B" & sonSatir).Value
sayfa2.Cells(1, 1).Value = sayfa1.Range("A1").Value
sayfa2.Cells(1, 2).Value = sayfa1.Range("B1").Value
End If
End Sub

A2 B2 için
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sayfa1 As Worksheet, sayfa2 As Worksheet, sonSatir As Long
Set sayfa1 = ThisWorkbook.Sheets("Sayfa1")
Set sayfa2 = ThisWorkbook.Sheets("Sayfa2")
If Not Intersect(Target, sayfa1.Range("A2:B2")) Is Nothing Then
sonSatir = sayfa2.Cells(sayfa2.Rows.Count, "A").End(xlUp).Row
sayfa2.Range("A2:B" & sonSatir + 1).Value = sayfa2.Range("A1:B" & sonSatir).Value
sayfa2.Cells(1, 1).Value = sayfa1.Range("A2").Value
sayfa2.Cells(1, 2).Value = sayfa1.Range("B2").Value
End If
End Sub

 

[excelcan]

Sayın hsyn25 dener misiniz ?