E sutünü verilerine göre kopyalama

[gnorar]

Aşağıdaki makroyu kullanmaya çalışıyorum

Dim aa As Range, bb As Range
With Sheets("Stok")
Set aa = .Range(.Range("I4"), .Range("I" & Rows.Count).End(xlUp))
End With
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each bb In aa
If bb(, 1) > 0 Then .Item(bb.Value) = bb.Value
Next
Sheets("Sonuç").Range("B3").Resize(.Count) = Application.Transpose(.keys)
End With

Bu kodun e stünündaki değerlerin 0 dan büyük olması durumunda kopyalama yaptırmasını nasıl sağlarım?

 

[Korhan Ayhan]

Selamlar,

Vermiş olduğunuz koddaki aşağıdaki satır içindeki kırmızı değeri 5 olarak değiştiriniz.

If bb(, [COLOR=red]1[/COLOR]) > 0 Then .Item(bb.Value) = bb.Value

 

[gnorar]

Selamlar,

Vermiş olduğunuz koddaki aşağıdaki satır içindeki kırmızı değeri 5 olarak değiştiriniz.

If bb(, [COLOR=red]1[/COLOR]) > 0 Then .Item(bb.Value) = bb.Value

Sn Korhan Ayhan,

Şart verileri A sütunundayken ve kod:

If bb(, [COLOR=red]1[/COLOR]) > 0 Then .Item(bb.Value) = bb.Value

şeklindeyken makro sorunsuz çalışıyor. Ancak;

Şart verileri E sütununa taşınıp kod:

If bb(, [COLOR=red]5[/COLOR]) > 0 Then .Item(bb.Value) = bb.Value

yapılınca makro "Run-time error '13': type mismatch" hatası veriyor.

Bu sorunu nasıl aşarım?

 

[Korhan Ayhan]

Selamlar,

Pardon yanlış bölümü belirtmişim. Aşağıdaki koddaki kırmızı bölümleri "E" olarak değiştirip deneyin.

Set aa = .Range(.Range("[COLOR=red]I[/COLOR]4"), .Range("[COLOR=red]I[/COLOR]" & Rows.Count).End(xlUp))

 

[gnorar]

Selamlar,

Pardon yanlış bölümü belirtmişim. Aşağıdaki koddaki kırmızı bölümleri "E" olarak değiştirip deneyin.

Set aa = .Range(.Range("[COLOR=red]I[/COLOR]4"), .Range("[COLOR=red]I[/COLOR]" & Rows.Count).End(xlUp))

Sorunu iyi açıklayamadım. Aslında I'lar doğru.

İçinde açıklama yaptığım bir örnek ekledim. Tekrar değerlendirmenizi rica ederim.

 

[Korhan Ayhan]

Selamlar,

Kodunuzdaki aşağıdaki satırı;

bb(, 5)

Aşağıdaki şekilde değitirp denermisiniz.

bb.Offset(0, -4)

 

[gnorar]

Selamlar,

Kodunuzdaki aşağıdaki satırı;

bb(, 5)

Aşağıdaki şekilde değitirp denermisiniz.

bb.Offset(0, -4)

Sn Korhan Ayhan, önerdiğiniz değişikliğin uygulanması sonucunda makro düzgün şekilde çalıştı. İlginiz için teşekkür ederim.