C 11 varsa F 11 yazsın..!

[sensizsoldum]

Merhaba Arkadaşlar,
C sütunda yaklaşık 30bin hücrede 11 ve 18 yazan rakamlar var.
C sutunda 11 yazanların karşısındakı f sutunda ki hücrede her ne yazıyorsa silinip 11 yazsın istiyorum. bunu bir butonla yapabilmemiz mümkünmüdür.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Degistir()
 
    Dim c As Range, Adr As Variant
    
    With Range("C:C")
        Set c = .Find(11, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Cells(c.Row, "F") = 11
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
End Sub

.

 

[sensizsoldum]

Teşekkür ederim elinize sağlık çok iyi oldu