Arkadaşlar herkese merhabalar. Deneme isimli Excel ekinde bulunan isimler sayfasındaki isimleri formül veya Makro ile veya başka yöntemle tablo sayfasına aktarma yolu varmıdır. Ancak tablo sayfasında dolu olan yerlere yazmayacak boş olan yerler e kopyalayacak.

tablo sayfasında 12. satırda bulunan ODRD veri 12. satırda olmak zorunda mı, isimler sayfasındaki verileri kopyalamadan önce tablo sayfasındaki boş satırları silip 12. satırdaki ODRD verisini 4. satıra taşıyıp sonra da isimler sayfasındaki verileri, tablo sayfasına 5. satırdan itibaren yapıştırsak olmaz mı?

Tablo sayfasında benim elle yazdığım yerler her seferinde farklı hücrelere yazacağım.  Dolu yerleri atlayıp boş hücrelere kopyalayacak bir yöntem lazım teşekkürler

Sub test()



Dim s1 As Worksheet, s2 As Worksheet, i As Long, k As Long



Set s1 = Sheets("isimler")

Set s2 = Sheets("tablo")



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

Application.ScreenUpdating = False

If son < 3 Then GoTo son



k = 3

For i = 3 To son

    For k = k To Rows.Count

        If s2.Cells(k, 1).Value = "" Then

            s2.Range("A" & k).Resize(1, 3).Value = Union(s1.Range("A" & i), s1.Range("B" & i), s1.Range("C" & i)).Value

            k = k + 1

            Exit For

        End If

    Next

Next



son:

Application.ScreenUpdating = True

Set s1 = Nothing

Set s2 = Nothing

End Sub

İş yoğunluğu sebebiyle dönüş yapamadım. İlgilenen tüm arkadaşlara teşekkür ederim.    Sayın feraz kodlar işime yaradı teşekkürler.

Rica ederiz,kolay gelsin.