Skip to main content

AccessTr.neT


Excel Görev Listesi Yardım

Excel Görev Listesi Yardım

Çözüldü #1
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.
.zip DENEME.zip (Dosya Boyutu: 7,6 KB | İndirme Sayısı: 5)
Son Düzenleme: 04/07/2020, 19:01, Düzenleyen: samed32.
Cevapla
#2
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ı?
Cevapla
#3
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
Cevapla
#4

Visual Basic Code
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

.rar DENEME.rar (Dosya Boyutu: 20,92 KB | İndirme Sayısı: 4)
Cevapla
#5
İş 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.
Cevapla
#6
Rica ederiz,kolay gelsin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da