Formül kopyalama

[bebar]

Merhaba;

Ekte buluna dosyada, en üst satırda bulunan düşeyara ile veri kaynağından çektiğim bilgileri boyalı kısımları atlayacak ve tüm mağazaları kapsayacak şekilde, fazla kasmaması için her sütun sütun , en üstteki bilgiyi 15000. satıra kadar kopyalayarak en üsteki formülü bozmaması için bir altından itibaren kopyaladğığı veriyi özel yapıştırıp değerlerinden kurtarmak ve bunu tüm sütünlar için içeren bir makro yapmaya çalışıyorum, biraz karmaşık anlattım ama ekteki dosyadan daha rahat anlaşılabilir.

Yardımcı olursanız sevinirim.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub kopya()
son = Cells(Rows.Count, 1).End(3).Row

For i = 43 To 57

If i Mod 3 <> 0 Then

    Cells(2, i).Select
    Selection.AutoFill Destination:=Range(Cells(2, i), Cells(son, i))
    Cells(3, i).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
End If

Next

[A1].Select
Application.CutCopyMode = False

End Sub

 

[besen]

.

 

[besen]

Merhaba bunu kolon atlatmadan kopyalayacak hale nasıl getirebiliriz.
Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub Formulu_Degere_Cevir()
    Range("A1:Z1000").Value = Range("A1:Z1000").Value
End Sub