Makroyu Tanımlanan Aralıkta Çalıştırmak

[cardinalus]

Herkese Meraba

Ekte gönderdiğim dosya yazdığım ilk makrodur.Şu anda tek hücrede çalıştırabiliyorum ve Uygulama aralığını genişletmek istiyorum.Bu konuda yardımcı olabilirseniz sevinirim.

İyi Çalışmalar...

 

[Astik]

loop kullanman gerekiyor arkadaşım

for i = 1 to 10

yazıp sonra i değişkenini hücrenin içine yazdırman gerekiyor..

cells( i , 1 ) gibi..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub HESAPLA()
    Dim X As Long
    Dim KRİTER As Range
    [J7:J21].ClearContents
    For X = 7 To 21
        For Each KRİTER In [B30:B50]
            If Cells(X, 2) = "Cam" And Cells(X, 3) = "Buzlu" Or _
                Cells(X, 2) = "Cam" And Cells(X, 3) = "Dekoratif" Or _
                Cells(X, 2) = "Ayna" And Cells(X, 3) = "Füme" Or _
                Cells(X, 2) = "Ayna" And Cells(X, 3) = "Satina" Or _
                Cells(X, 2) = "Ayna" And Cells(X, 3) = "Dekoratif" Or _
                Cells(X, 2) = "Ayna" And Cells(X, 3) = "Normal" Then
                If Cells(X, 2) = KRİTER.Value And _
                Cells(X, 3) = KRİTER.Offset(0, 1).Value Then
                Cells(X, "J") = Cells(X, "I") * KRİTER.Offset(0, 3).Value
                Exit For
                End If
            Else
                If Cells(X, 2) = KRİTER.Value And _
                Cells(X, 3) = KRİTER.Offset(0, 1).Value And _
                Cells(X, 4) = KRİTER.Offset(0, 2).Value Then
                Cells(X, "J") = Cells(X, "I") * KRİTER.Offset(0, 3).Value
                Exit For
                End If
            End If
        Next
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cardinalus]

Meraba
teşekkürler öncelikle ...
ancak Korhan verdiğin kodları ben çalışıtıramadım. X değişkeni tanımlanmamış diyor.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[cardinalus]

Compile Error!
Kriter is not defined !!!
Sen de çalıştı mı kod?
Benim de bu konuda fazla bir bilgim olmadığı için variable ları bilmiyorum. Burdan yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Selamlar,

Sanırım kodu eklediğiniz modülün içinde Option Explicit satırı var.

Üstteki kodu hata vermeyecek şekilde güncelledim. İncelermisiniz.

 

[cardinalus]

Çok teşekkürler...
Sonunda çalıştırdım
peki makroları daha iyi öğrenebilmek için bol örnekli bir kitap önerebilir misin?
Ben şu anda S.Uzunköprü nün kitabından çalışıyorum.