(01/05/2020, 01:03)yyhy yazdı: Aceleden dolayı örnek dosya eklememiştim, hata etmişim örnek dosyayı ekliyorum. Örnek dosya üzerinde denedim macro formüllü olan kısmı getirip yapıştırıyor değerleri yapıştırmasını istiyorum.

Sub Dolu()

    

  Dim veri, arr, say As Long, i As Long, son As Long

  Dim s1 As Worksheet: Set s1 = ThisWorkbook.Sheets("Mahalle")

  Dim s2 As Worksheet: Set s2 = ThisWorkbook.Sheets("Veri")

  

    son = s1.Cells(Rows.Count, "D").End(3).Row

    If son = 1 Then son = 2

    If WorksheetFunction.CountA(s1.Range("D2" & son)) = 0 Then GoTo var

    veri = s1.Range("D2" & son).Value

    ReDim arr(1 To UBound(veri), 1 To 1)

    For i = LBound(veri) To UBound(veri)

        If veri(i, 1) <> "" Then

            say = say + 1

            arr(say, 1) = veri(i, 1)

        End If

    Next

var:

    s2.Range("F2:F" & Rows.Count).ClearContents

    If say > 0 Then

        s2.Range("F2").Resize(say, 1).Value = arr

    End If

    

  On Error Resume Next

  Set s1 = Nothing

  Set s2 = Nothing

  Erase veri: Erase arr

End Sub