eklemek istediğim veri isimi listede yoksa en alta ekleme.

[yNsr43]

Sub tarihgir()
Dim sh As Worksheet, sonsat As Long
Dim k As Range
Sheets("sayfa1").Select
Set sh = Sheets("tarihsayfasi")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A1:A600" & sonsat).Find(Range("A4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(0, 2).Value = Range("B3").Value
           Sheets("sayfa2").Select
    Range("a1").Select
End If
End Sub

merhaba arkadaşlar
bu koda "sayfa1" A4 de arattığım kelime "tarihsayfasi" sayfasında yoksa en alta a4 de yazan kelimeyi eklemesini ve işlemi yapmasini istiyorum bunu nasıl yapabilirz
teşekkürler.

 

[turist]

Aşağıdaki gibi deneyin.

Sub tarihgir()
Dim sh As Worksheet, sonsat As Long
Dim k As Range
Sheets("sayfa1").Select
Set sh = Sheets("tarihsayfasi")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A1:A600" & sonsat).Find(Range("A4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(0, 2).Value = Range("B3").Value
           Sheets("sayfa2").Select
    Range("a1").Select
    Else
    sh.Range("A" & sonsat + 1) = Sheets("Sayfa1").Range("A4").Value
End If
End Sub

 

[yNsr43]

teşekkürler.

 

[turist]

Sağolun.