Döngü Yardımı

[rabbace]

Merhaba,

Farklı bir dosyadan veri çekmeye çalışıyorum, formülü kurguladım aşağıdakine benzer bir döngü yaptım,

For i= 5 to 100 step 3
......
Next i

Fakat, veriler ayı sırada gelmiyor. Step 3 sabit değil yani, bazen Step 2 bazen Step 4 olması gerekiyor.

Hiç bu döngüye girmeden, aynı sütundaki Miktar yazan hücrelerin olduğu satırda formülü çalıştırmak istiyorum, ekteki dosyada örnek hazırladım, umarım anlatabilmişimdir.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki şekilde yapabilirsiniz.

Sub Test()
    For i = 5 To 100 Step 3
        If Cells(i, "B").Value = "Miktar" Then
            Cells(i, "E").Value = "" 'Ocak 2019 Miktar
            Cells(i, "F").Value = "" 'Şubat 2019 Miktar
            Cells(i, "G").Value = "" 'Mart 2019 Miktar
        ElseIf Cells(i, "B").Value = "Birim Fiyat" Then
            Cells(i, "E").Value = "" 'Ocak 2019 Birim Fiyat
            Cells(i, "F").Value = "" 'Şubat 2019 Birim Fiyat
            Cells(i, "G").Value = "" 'Mart 2019 Birim Fiyat
        End If
    Next i
End Sub