düşeyara formülü ile ilgili bir soru

[gezgin-49]

Sayın üstadlarım düşeyara ile ilgili olarak aranan veri istenilen hücreye yazıldıktan sonra silinmesi veya hücrenin boş gözükmesi mümkünmü, sorunun detayları ekteki dosyada, hepinize saygılar sunuyorum.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A21:A30]) Is Nothing Then Exit Sub
    Set k = Range("A1:A20").Find(Target.Value, , xlValues, xlWhole)
    Cells(Target.Row, "B").Value = ""
    If Not k Is Nothing Then
        Cells(Target.Row, "B").Value = Cells(k.Row, "B").Value
        Cells(k.Row, "A").ClearContents
        Cells(k.Row, "B").ClearContents
    End If
End Sub

 

[gezgin-49]

Sayın üstadım Sezar ilginiz için size ve diğer üstadlarıma çok ama çok teşekkür ederim, Allah sizden razı olsun, istediğimden daha iyisini yapmışsınız, sağolun, varolun, eksik olmayın, çalışmalarınızda başarılar diler, saygılar sunarım.

 

[Orion1]

Sayın üstadım Sezar ilginiz için size ve diğer üstadlarıma çok ama çok teşekkür ederim, Allah sizden razı olsun, istediğimden daha iyisini yapmışsınız, sağolun, varolun, eksik olmayın, çalışmalarınızda başarılar diler, saygılar sunarım.

Rica ederim.
Çalışmalarınızda başarılar dilerim.

 

[Seyit Tiken]

Ekli dosyayı inceleyip kendinize uyarlayınız. İsim girip sonucu gözlemleyiniz.

Sub Düğme1_Tıklat()
a = InputBox("Değer Giriniz")
[a1:b100].Find(a).Select
ActiveCell = ""
ActiveCell.Offset(0, 1) = ""
End Sub