ara bul farklı hücreye yazdır

[cosarx]

herkese selamlar;
benim bir tane excel tablom var ve bu tablom sürekli değişen veriler içeriyor.sorunum şu:
textbox1'e girilecek verinin; excel tablosunda örneğin daha önceden x (5.satır 5.sutunda kayıtlı) diye işaretlediğim hücrenin yanındaki hücreye(5.satır 4.sütuna) yazmasını istiyorum..
sorun şurda ki kullanıcı tarafından bu excel tablosunda hücreler silinip x in yerinin değişiyor olması yani bu x hep aynı satırda kalmıyor...
ama sütun silinmediğinden kod bu x'i 5.sütunda arayacak yerini tespit edip o an hangi satırdaysa 5.sutunun bir eksiği yani 4.sutuna ve x 'in bulunduğu satıra textboxdaki degeri getirecek..

bu konuda yardımcı olursanız sevinirim...

 

[Ayhan Ercan]

Merhaba sn cosarx

Örnek bir dosya yollayabilirmisiniz?

 

[Ayhan Ercan]

Sorunuzu tam olarak anladığımı söyleyemem,

Ancak aşağıdaki kodları bir commandbuttona atayarak denermisiniz?

Private Sub CommandButton1_Click()
    Dim hcr As Range
    For Each hcr In Range("e1:e" & [e65536].End(3).Row)
        If hcr.Value = "x" Then
           Cells(hcr.Row, 4) = TextBox1
        End If
    Next
End Sub

 

[cosarx]

sn Ayhan Ercan cevabınız için teşekkürler belirttiğiniz kod ile tam olarak istediğim cevabı aldım..

iyi çalışmalar..

 

[Ayhan Ercan]

Rica ederim
İyi Çalışmalar.. k::

 

[Orion1]

Alternatif olarak aşağıdaki kodlarıda kullanabilirsiniz.

Private Sub CommandButton1_Click()
Set hcr = Range("E1:E65536").Find("x", , xlValues, xlWhole)
If Not hcr Is Nothing Then
    ilk_adrs = hcr.Address
    Do
        Cells(hcr.Row, 4) = TextBox1.Text
        Set hcr = Range("E1:E65536").FindNext(hcr)
    Loop While Not hcr Is Nothing And hcr.Address <> ilk_adrs
End If
End Sub