Kod hatası..

[mybluecat]

Ek te bulunan dosyalardan "Parametre Dağılım" isimli dosyada tanımlı kod diğer dosyadan aldığı verileri yanlış sütundan başlayarak atıyor. A sütunundan başlayarak verileri atması gerekirken G sütunundan başlıyor.

Kod yazılımın da hata yok gibi görünüyor.Benim kodlar ile ilgili bilgim fazla değil.Gözden kaçırdığım kısım nedir?

Yardımlarınızı bekliyorum..

(Not: Her iki dosyayı açtıktan 30 sn sonra kod devreye giriyor.)

Teşekkürler..

 

[Mehmet Şahin]

Merhaba ilgili kod bloğunu değiştiriniz.
İyi çalışmalar.

        For Each alan In S1.Range("I6:AR" & son)
            If UCase(alan) = "X" Then
                sat = S2.Cells(Rows.Count, alan.Column - [B][COLOR="red"]8[/COLOR][/B]).End(3).Row + 1
                S2.Cells(sat, alan.Column - [COLOR="Red"][B]8[/B][/COLOR]) = S1.Cells(alan.Row, "E")
            End If
        Next