Kopyala yapıştır Hakkında

[konas06]

Selam,
Aşağıdaki kodda C14 e değilde, ilk boş satıra kopyala - yapıştırma için nasıl bir değişiklik yapmam lazım.

Yardımlarınız için şimdiden teşekkür ederim.

Sub Dikdörtgen1_Tıklat()
'
' Dikdörtgen1_Tıklat Makro
'
' Klavye Kısayolu: Ctrl+z
'
Sheets("Sayfa1").Select
Range("C7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveSheet.Next.Select
Range("C5").Select
Selection.End(xlDown).Select
Range("C14").Select
ActiveSheet.Paste
End Sub

 

[dellerlim]

Merhaba, bu şekilde olabilir;

Sub Dikdörtgen1_Tıklat()
'
' Dikdörtgen1_Tıklat Makro
'
' Klavye Kısayolu: Ctrl+z
'
Sheets("Sayfa1").Select
Range("C7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveSheet.Next.Select
Range("C5").Select
Selection.End(xlDown).Select
[COLOR="Red"]sonsatir = ThisWorkbook.Worksheets("Sayfa1").Range("A65536").End(xlUp).Row + 1
Cells(sonsatir, 1).Select[/COLOR]
ActiveSheet.Paste
End Sub

sonsatir = ThisWorkbook.Worksheets("Sayfa1").Range("A65536").End(xlUp).Row + 1
Cells(sonsatir, 1).Select

 

[dellerlim]

Cells(sonsatir, 1).Select

1 yerine 3 yazarsanız; A sütunu yerine C sütunundaki boş hücreyi bulur.

 

[konas06]

Verdiğiniz kodu,
ilgili yere yapıştırdım,
Ancak ilk satır boş olduğu için hep orayı görüyor,
ondan sonrasında bu kodun çalışması gerekiyor.

 

[konas06]

Değerli ustalar konu halen günceldir.
İyi geceler dilerim.

 

[Ömer BARAN]

Merhaba.

Mevcut kod'u aşağıdakiyle değiştirerek deneyin.
.

[B]Sub Dikdörtgen1_Tıklat()[/B]
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
If s1.Cells(Rows.Count, "C").End(3).Row > 6 Then
s1.Range(s1.Cells(7, "C"), s1.Cells(s1.Cells(Rows.Count, "C").End(3).Row, "C")).Copy _
s2.Cells(s2.Cells(Rows.Count, "C").End(3).Row + 1, "C")
End If
[B]End Sub[/B]

 

[denese]

Merhaba,

Örneğin; B sütununda dolu olan tüm hücreleri, A sütununda aynı satırlara (karşılığına) nasıl kopyalayabilirim? Kod hakkında yardımcı olabilir misiniz.

İyi çalışmalar

 

[denese]

Merhaba Arkadaşlar,

Bu konuda çözümü / önerisi olan yok mu?

 

[askm]

Sub Dikdörtgen1_Tıklat()
Range(Cells(1, "B"), Cells(Cells(Rows.Count, "B").End(3).Row, "B")).Copy _
Cells(1, 1)
End Sub

 

[denese]

Sub Dikdörtgen1_Tıklat()
Range(Cells(1, "B"), Cells(Cells(Rows.Count, "B").End(3).Row, "B")).Copy _
Cells(1, 1)
End Sub

Merhaba Sn. Askm,

Kod;

"B" sütununu hücre biçimiyle birlikte kopyalıyor. Yapmak isteğim "A" sütununun hücre biçimini bozmadan kopyalaması.

"B" sütununda BOŞ hücreler formül içerebiliyor. Yapmak istediğim "B" sütununun tamamını kopyalamadan, sadece DOLU hücreleri bulup "A" sütunundaki karşılığına kopyalaması.

Desteğiniz için çok teşekkür ederim.

 

[askm]

Sub Dikdörtgen1_Tıklat()
Range(Cells(1, "B"), Cells(Cells(Rows.Count, "B").End(3).Row, "B")).Copy
Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Cells(1, 1).Select
Application.CutCopyMode = False
End Sub

Sorunuzu örnek dosya ile desteklerseniz net çözüm bulabiliriz.

 

[denese]

Sub Dikdörtgen1_Tıklat()
Range(Cells(1, "B"), Cells(Cells(Rows.Count, "B").End(3).Row, "B")).Copy
Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Cells(1, 1).Select
Application.CutCopyMode = False
End Sub

Sorunuzu örnek dosya ile desteklerseniz net çözüm bulabiliriz.

Yardımlarınız için tekrar teşekkür ederim.
Saygılar

 

[askm]

Rica ederim.