Makro neden tek işlem yapıyor

[metinavci23]

Arkadaşlar ekte gönderilen dosyadaki makro tek işlem yapıyor.Yapmak istediğim 31'inci satıra kadar işlem yapması ancak işlemi ilk sapıyor ve duruyor.yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Büyük ihtimalle kurguladığınız döngü yanlıştır. Dosya üzerinde açıklama yapmamışsınız. Tam olarak nasıl bir işlem yapmak istiyor sunuz?

 

[metinavci23]

"sayılar" sayfasında A sütunu ile "formul32" sayfasındaki "b" sütunundaki değerleri karşılaştıracak.eğer rakamlar ayni ise "oynanan" sayfasını "b" sütununa "sayılar" sayfasının "a" sütunun sağ tarafındaki rakamı yazacak.umarım anlatabilmişimdir.

 

[Korhan Ayhan]

Selamlar,

Bu durumda makronuz doğru çalışıyor. Çünkü iki sayfada eşleşen veri A2 ile B2 hücreleridir.

Eğer aradığınız sonuç bu değilse örnek dosyanız üzerine görmek istediğiniz sonucu ve açıklamasını yazıp foruma yollar mısınız?

 

[metinavci23]

Korhan Bey ,tamam makro çalışıyor ama sadece 2.satırda işlem yapıyor ve duruyor..Benim istediğim ayni makro 31.satıra kadar gerekli karşılaştırmaları yapıp değerleri getirsin

 

[volkangandalf]

Sayın Avcı, böyle bir şey mi istiyorsunuz?

 

[metinavci23]

cevap

Arkadaşlar şu anda "oynanan" sayfasında nasıl sonuç istediğim görülmektedir.inşallah du defa kendimi anlatabilmişimdir.yardımınızı bekliyorum.

 

[volkangandalf]

Bir gram aklım vardı oda gitti. O sayılar nerden geldi anlamadım ben.Neyse çözümü bekleyeyim belki anlarım.

 

[Korhan Ayhan]

Selamlar,

Umarım doğru anlamışımdır. Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYILARI_YERLEŞTİR()
    Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
    Dim Sütun As Byte, Satır As Integer, Bul As Range
    
    Set S1 = Sheets("sayilar")
    Set S2 = Sheets("formul32")
    Set S3 = Sheets("oynanan")
    
    S3.Range("B2:G31").Clear
    
    For Sütun = 2 To 7
        For Satır = 2 To 31
            Set Bul = S1.Range("A:A").Find(S2.Cells(Satır, Sütun), , , xlWhole)
            If Not Bul Is Nothing Then
                S3.Cells(Satır, Sütun) = Bul.Offset(0, 1)
            End If
        Next
    Next
    
    Set Bul = Nothing: Set S1 = Nothing: Set S2 = Nothing: Set S3 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[metinavci23]

Teşekkürler Korhan Bey