veri aktarma

[haktem]

Merhaba ekteki dosyanın siparis sayfasında aktar makrosu var, makroyu çalıştırdığımda sevk tarihine göre (D2 hücresi) sayfa oluşturup A1 ile H118 arasındaki tüm verileri oluşturduğu sayfaya aktarıyor.

Benim yapmak istediğim;
1. Aktarma yaparken formülleri değil hücredeki veri ne ise onu aktarsın,

2. A1 ile H8 arasındaki herşeyi ve A9 ile H118 arasındaki kısımda C sütunu dolu olan var ise dolu olan satırları aktarmak istiyorum, yani müşteri bilgileri ve sipariş geçilen satırları aktarmak istiyorum,

yardımcı olmanızı rica ederim.

 

[Ömer]

Merhaba,

Aktar kodlarını aşağıdakiyle değiştirerek deneyin.

Sub sayfa_ac_ve_aktar()
 
    Dim Sayfa_Adi As String, Ss As Worksheet, i As Long, sat As Long
    
    Set Ss = Sheets("siparis")
    Sayfa_Adi = [D2]
    
    Application.ScreenUpdating = False
    If Sayfa_Adi = "" Then Exit Sub
    
    If Not SayfaVarMi(Sayfa_Adi) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa_Adi
    End If
    
    Sheets(Sayfa_Adi).Select: Cells.Clear
    
    Ss.Range("A1:H8").Copy Range("A1")
    Cells.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    sat = 9
    For i = 9 To Ss.Cells(Rows.Count, "A").End(xlUp).Row
        If Ss.Cells(i, "C") <> "" Then
            Ss.Range("A" & i & ":H" & i).Copy Cells(sat, "A")
            sat = sat + 1
        End If
    Next i
    
    Range("A1").Select: Columns.AutoFit: Ss.Select: Set Ss = Nothing
 
    Application.ScreenUpdating = True
    MsgBox "sipariş aktarıldı"
 
End Sub

.