Değeri Birer Artırma

[steppe]

Merhaba Arkadaşlar,
Forum sayfasından epeyce araştırdım,aşağıdaki örneğe benzer bulamadım.
Makro ile A ve B sütunundaki verilerin rakamlarını 1'er nasıl artırabilirim.
Örnek: makroyu çalıştırınca
A1---elma=2 iken elma=3
B1---elma=3 iken elma=4
A2---armut=3 iken armut=4
B2---armut=4 iken armut=5

nasıl yapılabilir?
Yardımlarınız için şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub artış()
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    If IsError(WorksheetFunction.Find("=", Cells(i, "A"))) = False Then
        adet = Right(Cells(i, "A"), Len(Cells(i, "A")) - WorksheetFunction.Find("=", Cells(i, "A")))
        Cells(i, "A") = Replace(Cells(i, "A"), adet, (adet * 1) + 1)
    End If
        If IsError(WorksheetFunction.Find("=", Cells(i, "B"))) = False Then
        adet = Right(Cells(i, "B"), Len(Cells(i, "B")) - WorksheetFunction.Find("=", Cells(i, "B")))
        Cells(i, "B") = Replace(Cells(i, "B"), adet, (adet * 1) + 1)
    End If
Next
End Sub

 

[Murat OSMA]

Merhaba,

Bu kodları kullanabilirsiniz;

[SIZE="2"]Sub Emre()
    Dim evn As Range, a%, sayi%, ilk$
    For Each evn In Range("A1").CurrentRegion
        a = a + 1
        If a > 2 Then
            ilk = Split(evn.Value, "=")(0) & "="
            sayi = Split(evn.Value, "=")(1) + 1
            evn.Value = ilk & sayi
        End If
    Next evn
    Set evn = Nothing: a = Empty: sayi = Empty: ilk = ""
End Sub[/SIZE]

 

[steppe]

YUSUF 44 ve Murat OSMA Hocam,
Yardımlarınız için çok teşekkür ederim.