Hücre içeriğine ekleme yap karşılaştır.

[muratnazli]

Sub Macro1()
For i = 1 To 20
bir = Cells(i, 1)
For j = 1 To 20
iki = Cells(j, "2&" Total")
If bir = iki Then Cells(j, 4) = "eşit"
Next j
Next i
End Sub

Merhaba,
İlişikteki tabloda b sütunundali hücrelere makro ile " Total" ekledikten sonra a sütunundaki hücrelerle karşıştırmak istiyorum. Bir şeyler yapmaya çalıştım fakat koyu yazdığım yerdeki birleştirme işlemini yapamadım. Yardımcı olursanız sevinirim.
Teşekkürler

 

[ALPEN]

For i = 2 To 20
    Cells(i, 2) = Cells(i, 2) & " Total"
    If Cells(i, 1) = Cells(i, 2) Then
        Cells(i, 3) = "Eşit"
    Else
        Cells(i, 3) = "Eşit Değil"
    End If
Next i

 

[Levent Menteşoğlu]

hatalı satırı aşağıdaki gibi değiştirin

iki = CStr(Cells(j, 2)) + CStr(" Total")


selamlar

 

[muratnazli]

Sayın Alpen,
Sayın Leventm,

Çok Teşekkür ederiem.

Selemlar.

 

[ALPEN]

leventm,
verilen ilk koda dikkat etti iseniz

Sub Macro1() 
For i = 1 To 20 
    bir = Cells(i, 1)                  [b]' 20 kez işlem yapar[/b]
    For j = 1 To 20 
        iki = Cells(j, "2&" Total")   [b]'400 kez bu işlemi [/b]
        If bir = iki Then                [b]'400 kez bu kontrolü [/b]
            Cells(j, 4) = "eşit"             [b]'400 kez bu işlemi yapar[/b]
   Next j 
Next i 
End Sub

gereksiz 1200 işlem yaptığını görmüşünüzdür.

bu yüzden kodu değiştirdim.

 

[Levent Menteşoğlu]

sn ALPEN

yazdığınız koda hiç bir itirazım yok. ben sadece sn muratnazli'nin yazmış olduğu kodda hatanın nasıl düzeltileceğini sorusuna bir öneri olarak fikrimi söyledim.

saygılarımla

 

[muratnazli]

Sayın Alpen Selamlar,
Aşağıdaki gönderdiğiniz kodda Cells(i,2)&" Total") kodu ile numara ve metni birleştirmişsiniz aynı koddan hareketle önce metin sonra numara şeklinde nasıl birleştirebilirim. Yardımcı olabilirseniz sevinirim.

Teşekkürler.

For i = 2 To 20
Cells(i, 2) = Cells(i, 2) & " Total"
If Cells(i, 1) = Cells(i, 2) Then
Cells(i, 3) = "Eşit"
Else
Cells(i, 3) = "Eşit Değil"
End If
Next i

 

[ALPEN]

Cells(i, 2) = Cells(i, 2) & " Total"

 

[muratnazli]

Sayın Alpen,

Cells(i,2) hücresinin değeri 454250 olduğunu varsalım Cells(i, 2) = Cells(i, 2) & " Total" kodu ileCells(i,2)hücresinin değeri "454250 Total" haline geliyor. Ben Cells(i,2) hücresinin değerini "Total 454250" şekline nasıl getirebilirim diye sormak istemiştim.

Teşekkürler

 

[ALPEN]

Cells(i, 2) = "Total " & Cells(i, 2)