• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro Çalışırken Hata vermesi

Katılım
4 Eylül 2020
Mesajlar
394
Excel Vers. ve Dili
Excel 2016
Merhabalar kodu çalıştırırken aşağıdaki yerde

Kod:
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
 

Ekli dosyalar

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?
 
Merhaba hocam en cok satılan 30 ürünü getirmesi gerekiyor getiriyor fakat böyle hata veriyor. Ömer hocam yazmıştı kodu
 
O satırı silin yerine aşağıdakini kopyalayın.
Kod:
Worksheets("Rapor").Range("A31").Offset(i, 0).Resize(Say - 30 , UBound(Liste, 2)).ClearContents
 
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
 

Ekli dosyalar

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

Kod:
Arr = Worksheets("Sayfa1").Range("A1").CurrentRegion.Value
 
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
 
Geri
Üst