Copy Koduna bir ilave etmem lazım...

[sabri şirin]

Merhaba,
Aşağıda ki kod da (C5:I13) hücrelerini farklı sayfaya kopyalıyorum.
I sütununda (I5:I13) arasında dolu olanları satırlarıyla beraber kopyalaması için Koda nasıl bir ilave yapabiliriz?

Saygılarımla...

Sub Günlükgelir()
say = Worksheets("Günlük Gelir").Range("B65530").End(3).Row + 1
Worksheets("Gider").Range("c5:ı13").Copy
Worksheets("Günlük Gelir").Range("B" & say).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Kopyalamak istediğiniz satırları ve işlem sonundaki halini gösteren bir örnek hazırlayıp, ekleyiniz.

. . .

 

[sabri şirin]

. . .
Merhaba.
Kopyalamak istediğiniz satırları ve işlem sonundaki halini gösteren bir örnek hazırlayıp, ekleyiniz.
. . .

Örnek EK'dedir.
Saygılarımla...

 

[Murat OSMA]

Hüseyin Bey'in müsadesiyle...

Deneyiniz...

Sub Emre()
    Dim i As Integer
        For i = 5 To Sayfa1.Range("C65536").End(3).Row
            If Sayfa1.Cells(i, "I") <> "" Then
                Sayfa1.Cells(i, 3).Resize(, 7).Copy Sayfa2.Range("B65536").End(3)(2, 1)
            End If
        Next i
    i = Empty
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Dim sgu As Worksheet
Dim sgi As Worksheet
Set sgu = Sheets("Günlük Gelir")
Set sgi = Sheets("Gider")
Application.ScreenUpdating = False
sgu.Range("b2:b65536").ClearContents
aa = sgu.[b65536].End(3).Row + 1
bb = sgi.[ı65536].End(3).Row

For i = 5 To bb
If sgi.Cells(i, "ı") <> "" Then
sgu.Cells(aa, "b") = sgi.Cells(i, "c")
sgu.Cells(aa, "c") = sgi.Cells(i, "d")
sgu.Cells(aa, "d") = sgi.Cells(i, "e")
sgu.Cells(aa, "e") = sgi.Cells(i, "f")
sgu.Cells(aa, "f") = sgi.Cells(i, "g")
sgu.Cells(aa, "g") = sgi.Cells(i, "h")
sgu.Cells(aa, "h") = sgi.Cells(i, "ı")
aa = aa + 1

Else
End If
Next i
aa = Empty
bb = Empty
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[Emir Hüseyin Çoban]

Hüseyin Bey'in müsadesiyle...

. . .

Merhaba Murat Bey. Rica ederim. Sayfayı yenilemediğim için, cevap yazdığınızı görmedim.

Teşekkürler.

. . .

 

[Murat OSMA]

İyi günler.

 

[sabri şirin]

Hüseyin Bey ve Murat Bey,
İlginize çok teşekkür ederim.
Hüseyin Bey, Sizin Kodlar iyi çalışıyor. Fakat kopyalama işlemini 1 defa yapıyor daha sonrakileri üzerine kaydediyor.
Murat bey, verdiğiniz kodlar gayet güzel alt alta kayıt ederek devam ediyor.(Facebook'da sizi takip etmeye devam ediyorum. Başarılı araştırmalarınız Askerlik sonrası da devam etmesi güzel...)
Tekraren ikinizede çok teşekkür ederim.
Saygılarımla...

 

[Murat OSMA]

Hüseyin Bey'in kodlarında Clearcontents yazan bir satır var, onu silerseniz alt alta kaydedecektir...

Bir takipçim olduğunu bilmiyordum.
Teşekkür ederim Sabri Bey,

İyi günler...