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.