Excel Boyut Düşürme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel Boyut Düşürme

İleti#1)  ali288 » 07 Ekm 2019 13:12

Arkadaşlar merhaba

Düşeyara ile aldırdığım pek çok veri var, dosya boyutunu düşürmek adına bu işlemleri kod ile Command Buttona atadığımda Excelin boyutunun artığını görüyorum.

Bu tam tersi olmalı değil mi?
Yorumlarınızı bekliyorum.

Teşekkürler :)
Kullanıcı avatarı
ali288
Yeni Başlamış
 
Kayıt: 23 Eyl 2019 09:11
Meslek: Üretim
Yaş: 36
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel Boyut Düşürme

İleti#2)  kenantu » 07 Ekm 2019 16:52

Kodlarınızı görmeden bir şey söyleyemeyiz dosyanızı gönderebilirseniz size neden olduğunu daha rahat yazabiliriz.
Kullanıcı avatarı
kenantu
Yeni Başlamış
 
Adı Soyadı:Kenan Tunçay
Kayıt: 12 Haz 2009 08:06
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel Boyut Düşürme

İleti#3)  ali288 » 09 Ekm 2019 07:03

Kenan Bey


Dosyayı şuan yükleme şansım yok formüller ve kodlar aşağıdaki gibidir.

Teşekkürler :)

Düşeyara için =EĞERHATA(DÜŞEYARA(D14;Sayfa1!A:F;6;0);"")

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    On Error Resume Next
    For i = 2 To Range("a65536").End(3).Row
      If Cells(i, "A") <> "" Then
        Cells(i, "C") = Application.WorksheetFunction.VLookup(Cells(i, "C"), Sheets("Sayfa1").Range("A:C"), 3, 0)
        Cells(i, "i") = Application.WorksheetFunction.VLookup(Cells(i, "A"), Sheets("Sayfa1").Range("A:C"), 3, 0)
      End If
    Next
Application.S
Kullanıcı avatarı
ali288
Yeni Başlamış
 
Kayıt: 23 Eyl 2019 09:11
Meslek: Üretim
Yaş: 36
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe