Hücre Harf İle başlıyorsa

[leonadies]

Üstadlar elimde bir dosya var. A Sütununda Harfle ve rakamla başlayan veriler var. İsteğim ise şu.. A sütununda tekrar eden ve harfle başlayan veriler bir sonraki ilk farklı Harf ile başlayan yere kadar aynı şekilde B sütununda devam etsin.

Anlatması Zor. Güzel bir dosya hazırladım. Yardımlarınızı diliyorum

 

[veyselemre]

Sub test()
    For Each huc In Range("a2", Cells(Rows.Count, 1).End(3))
        If IsNumeric(huc) Then
            huc.Offset(, 1).Value = huc.Offset(-1, 1).Value
        Else
            huc.Offset(, 1).Value = huc.Value
        End If
    Next huc
End Sub

Sub test1()
    With Range("b2", Cells(Rows.Count, 1).End(3).Offset(, 1))
        .FormulaR1C1 = "=IF(ISNUMBER(RC[-1]),R[-1]C,RC[-1])"
        .Value = .Value
    End With
End Sub

 

[Ömer BARAN]

Merhaba.
B2 hücresine uygulayıp aşağı doğru kopyalayın.

=EĞER(ESAYIYSA(A2);B1;A2)

 

[leonadies]

Teşekkürler Ömer Hocam