AccessTr.neT
Excel Görev Listesi Yardım - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Görev Listesi Yardım (/konu-excel-gorev-listesi-yardim.html)



Excel Görev Listesi Yardım - samed32 - 04/07/2020

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.


RE: Excel Görev Listesi Yardım - berduş - 04/07/2020

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ı?


RE: Excel Görev Listesi Yardım - samed32 - 05/07/2020

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


RE: Excel Görev Listesi Yardım - feraz - 05/07/2020

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



RE: Excel Görev Listesi Yardım - samed32 - 07/07/2020

İş 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.


RE: Excel Görev Listesi Yardım - feraz - 07/07/2020

Rica ederiz,kolay gelsin.