Soru Makro For-Next Döngüsünde Değerleri Dönmüyor

[zbaran97]

Merhaba,
Excel'de belirli kurallara göre iki sütunlu verileri bir sayfadan başka bir sayfaya çekmem gerekiyor,
Üç farklı ana belirleyicim var.
Aşağıdaki ilk duruma özel bir kod yazdım, kodda her yeni satırda ilgili satır değerine göre verileri yazması ve ilerlemesi gerekiyor. Ama her satırda sadece ikinci sayfadaki en son değer yer alıyor.
Nasıl çözebilirim?

Sub nergis_gunluk_hesaplama_kanal_bazli()
    last = Worksheets("Genel_Ortalama").Range("B" & Rows.Count).End(xlUp).Row
    For j = 4 To last
        If ThisWorkbook.Sheets("Genel_Ortalama").Cells(j, 3).Value = "nergis" Then
            'For m = 4 To 33
                ThisWorkbook.Sheets("Genel_Ortalama").Cells(j, 5).Value = ThisWorkbook.Sheets("EKIM_ORT").Cells(m, 2).Value
                ThisWorkbook.Sheets("Genel_Ortalama").Cells(j, 6).Value = ThisWorkbook.Sheets("EKIM_ORT").Cells(m, 6).Value
            m = m + 1
            'Next j
        End If
    j = j + 2
    Next j
End Sub

 

[Ömer]

Merhaba,

Öncelikle, kodlara göre m değeri 0 dan başlıyor. İlgili satırı pasifleştirmişsiniz. Yanlışlıkla da yapmış olabilirsiniz. Bu yüzden 0. satır olmayacağı için kodlar hata verir.

Sorunuzu örnek dosya ile destekleyip detaylı açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[zbaran97]

Merhaba,

Öncelikle, kodlara göre m değeri 0 dan başlıyor. İlgili satırı pasifleştirmişsiniz. Yanlışlıkla da yapmış olabilirsiniz. Bu yüzden 0. satır olmayacağı için kodlar hata verir.

Sorunuzu örnek dosya ile destekleyip detaylı açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

Selamlar, deneme tarafındaki haliyle yapıştırdığım için, kabul etmemiş, haklısınız sorunu şimdi çözdüm, teşekkürler