Excel Şablon sayfası yardım

[muratkul]

Abi Harikasınız çok teşekkür ederim.Beni bir yükten kurtardınız. yoksa ben kopyala yapıştır yapacaktım her defasında.

 

[muratkul]

Hüseyin bey,
Birde Rapordaki AD, KL, PK,KL, KG yazan yerleri
AD yazıyorsa Adet, PK yazıyorsa Paket,KL yazıyorsa Koli,KG yazıyorsa Kilogram olarak yazmasını sağlayabilir misiniz.

 

[Emir Hüseyin Çoban]

. . .

Kırmızı ile belirttiğim satırları ilave ederek deneyin,

    Next x
    
    SO.Range("A2:F" & Rows.Count).ClearContents
    SO.Range("A2").Resize(son, 6) = dizi
    SO.Cells.EntireColumn.AutoFit
    
[COLOR="DarkRed"]    kısa = Array("AD", "PK", "KL", "KG")
    uzun = Array("Adet", "Paket", "Koli", "Kilogram")
    For i = 0 To UBound(kısa)
        SO.Range("C:C").Replace What:=kısa(i), Replacement:=uzun(i)
    Next i[/COLOR]
    
    With Application
        .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: .EnableEvents = True
    End With
    MsgBox " B i t t i "

. . .

 

[muratkul]

Hüseyin bey,
çok teşekkür ederim.

 

[muratkul]

Hüseyin bey,
kusura bakmayın yine sizi rahatsız ediyorum fakat biz efaturada başka bir entegreörle anlaştık onlarında şablonu farklıymış. tekrar size excel dosyası göndersem yine makro olarak çalışacak biçimde hazırlayıp gönderebilirmisiniz.