Hücrede Formulün Silinip Seçilen Verinin kalması

[skaan]

Merhaba;
Formdaki üstadların yardımıyla aşağıdaki kodlar yazıldı.
Ancak bu kodlar ile "Dekont" Sayfasında düğmeye tıklatınca D4 hücresinde "EGF_Detayı" sayfasında veriyi buluyorum.
Bu sayfada Kontrol sütununa "OK" yazıdırıyorum.
Kontrol sütununda verı bulunup "OK" yazdıktan sonra sadece H sütunundaki bu hücrelerde veri kalıp formül silinmiyor. ( Veriyi bulup Ok gelecek ve formül hücrede sılınecek.. bu sekılde devam edecek..)
Her arama sonunda verının bulunup formullerın sılınmesı için kodda nasıl bir düzenleme yapabilirim.
Lütfen bana yardımcı olabilirmisiniz.. Burada takıldım kaldım.. Ornek dosyam ektedir..Konu benim için çok önemlidir...


Sub Resim1_Tıklat()
Dim k As Range, sonsat As Long, sh As Worksheet
Set sh = Sheets("EGF_Detayı")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
Set k = sh.Range("B4:B" & sonsat).Find(Sheets("Dekont").Range("H4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
k.Offset(0, -1).Value = Sheets("Dekont").Range("B4").Value
End If
sh.Select: Range("A1").Select
End Sub


Saygılarımla
SKaan

 

[skaan]

Yardımcı olabilecekmisiniz..??

 

[Korhan Ayhan]

Dekont sayfasının H4 hücresinde ve B4 hücresinde hangi verileriniz var. Eklediğiniz kod içinde kullanmışsınız fakat bu hücreler boş. Büyük ihtimalle bu yüzden yardım alamıyorsunuz.

 

[vardar07]

Formüle gerek yoksa.Kırmızı yerleri ekleyip denermisiniz.

Sub Resim1_Tıklat()
Dim k As Range, sonsat As Long, sh As Worksheet
Set sh = Sheets("EGF_Detayı")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
Set k = sh.Range("B4:B" & sonsat).Find(Sheets("Dekont").Range("[COLOR="Red"][B]D4[/B][/COLOR]").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(0, -1).Value = Sheets("Dekont").Range("B4").Value
   [COLOR="red"][B] k.Offset(0, 6).Value = "ok"[/B][/COLOR]
End If
sh.Select: Range("A1").Select
End Sub

 

[skaan]

Merhaba,
Sayin Vardar07 verdiginiz kod ok.dir.. Yardımlarınız için çok teşekkürler.
Sizler İyiki varsınız

Saygılarımla
Skaan