Makro Çalışırken Hata vermesi

[mukoli]

Merhabalar kodu çalıştırırken aşağıdaki yerde

Worksheets("Rapor").Range("A31").Offset(i, 0).Resize(Say - 30 - i, UBound(Liste, 2)).ClearContents

burda hata almaktayım yardımcı olursanız sevinirim teşekkür ederim

 

[Muzaffer Ali]

Bu satır hücreleri temizliyor.
"Say - 30 - i" bu işlemin sonucu Sıfır olduğu için hata veriyor.

Siz hangi satır aralığını silmek istiyorsunuz?

 

[mukoli]

Merhaba hocam en cok satılan 30 ürünü getirmesi gerekiyor getiriyor fakat böyle hata veriyor. Ömer hocam yazmıştı kodu

 

[Muzaffer Ali]

O satırı silin yerine aşağıdakini kopyalayın.

Worksheets("Rapor").Range("A31").Offset(i, 0).Resize(Say - 30 , UBound(Liste, 2)).ClearContents

 

[mukoli]

Teşekkür ederim hocam çalıştı elinize sağlık

 

[Muzaffer Ali]

Kolay gelsin.

 

[mukoli]

Muzaffer hocam ekteki dosyada revize yapabilirmiyiz .eski yazan sayfa daki bilgilere göre işlem yapıyordu. Yeni yazan sayfaya işlem yapması lazım bir türlü beceremedim

 

[Muzaffer Ali]

Eski sayfanızın adı "Eski" değil "Sayfa1" di.
Aşağıdaki satırdaki sayfa adını değiştirmelisiniz.

Arr = Worksheets("Sayfa1").Range("A1").CurrentRegion.Value

 

[mukoli]

Merhaba hocam orda sıkıntı yok eski sayfada a sutununda STOKKODU,B VEGAADI,C ADET ,D NETADRES vardı
yeni sayfada yerleri değişti
b sutununda STOKKODU,c sutununda VEGAADI,d sutununda ADET J NETADRES