Farklı Sayfaya Kayıt Girişi

[ozgurpeh]

Arkadaşlar Merhaba,

Excelde bir sayfaya herhangi bir tarihte girdiğimiz bilgeliri bir başka sayfaya nasıl otomatik giriş yaptırabiliriz bu yapıldığında ilk veri girişi yaptığımız sayfadaki bilgiler güncellenince tarihi esas alarak değişmeden silinmeden kalması lazım kısacası tarih tarih ne girilmiş 2 nci sayfada görmek istiyorum yardımcı olursanız sevinirim.

 

[Ferhat Pazarçevirdi]

"A" adlı sayfaya bir buton yerleştirin ve aşağıdaki kodları bu butona bağlayın. Her veri girdiğinizde butona basıp, verilerinizi "B" sayfasına gönderebilirsiniz.

Sub Gonder()
Dim shA As Worksheet, shB As Worksheet
Dim bul As Range
Dim son As Integer
Dim satir As Integer
Dim j As Integer
Set shA = Sheets("A")
Set shB = Sheets("B")
Set bul = shB.Columns("B:B").Find(shA.Cells(11, "G"), lookat:=xlWhole)
If bul Is Nothing Then
   son = shB.Cells(65536, 2).End(xlUp).Row
   satir = IIf(son = 1, 15, son + 1)
Else
   satir = bul.Row
End If
shB.Cells(satir, 2) = shA.Cells(11, "G")
For j = 3 To 6
    shB.Cells(satir, j) = shA.Cells(13, j)
Next j
Set bul = Nothing
Set shA = Nothing
Set shB = Nothing
End Sub

 

[ozgurpeh]

"A" adlı sayfaya bir buton yerleştirin ve aşağıdaki kodları bu butona bağlayın. Her veri girdiğinizde butona basıp, verilerinizi "B" sayfasına gönderebilirsiniz.

Sub Gonder()
Dim shA As Worksheet, shB As Worksheet
Dim bul As Range
Dim son As Integer
Dim satir As Integer
Dim j As Integer
Set shA = Sheets("A")
Set shB = Sheets("B")
Set bul = shB.Columns("B:B").Find(shA.Cells(11, "G"), lookat:=xlWhole)
If bul Is Nothing Then
   son = shB.Cells(65536, 2).End(xlUp).Row
   satir = IIf(son = 1, 15, son + 1)
Else
   satir = bul.Row
End If
shB.Cells(satir, 2) = shA.Cells(11, "G")
For j = 3 To 6
    shB.Cells(satir, j) = shA.Cells(13, j)
Next j
Set bul = Nothing
Set shA = Nothing
Set shB = Nothing
End Sub

DEDİĞİNİZ GİBİ YAPTIM FAKAT ÇALIŞMADI ÖRNEKLE YARDIMCI OLABİLİRMİSİNİZ

 

[Ferhat Pazarçevirdi]

Örnek dosyayı inceleyiniz

 

[ozgurpeh]

Örnek dosyayı inceleyiniz

TEŞEKÜR EDERİM