Hücredeki değer kadar satır kopyalama

[mbattal]

Arkadaşlar Merhaba,
Uzun zamandır özel nedenlerden dolayı siteye giremiyordum.
Bundan sonra girebileceğimi zannediyorum.
Sizlerden bir ricam var EK'teki dosyama bakıp orada anlatılan özel kopyala yapıştır olayını halledebilirseniz sizlere minnettar kalacağım
saygılarımla

 

[Ömer]

Merhaba,

Sub Deneme()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
    S1.Range("A:A").ClearContents
    S2.Range("C8:C" & S2.[G1] + 7).Copy S1.Range("A" & S1.[F1])
End Sub

.

 

[mbattal]

ömer bey çok teşekkürler,
Fakat sayfa1 deki f1 hücresinde yazılı olan satır numarasından başlaması gerekiyor yapıştırmaya. standart olmayacak sütun sabit fakat satır değişken sizin çözümünüzde a16 sabit olmuş
teşekkürler

 

[Ömer]

Kodu düzenledim, tekrar denermisiniz.

 

[mbattal]

çok teşekkür ederim mükemmel olmuş

 

[mbattal]

Ömer bey kusura bakmayın bir sorun çıktı
sayfa2 den sayfa1 e yapıştıyor ya, yapıştırma işlemini yaparken önceki yapıştırdığını silip yenisini yapıştırıyor. Aslında tam olarak benim istediğim önceki yapıştırdığı kalsın yenisini yeni satır numarasına tekrar yapıştırmasıydı...
Bilmem anlatabildimmi?
Kusura bakmayın

 

[Ömer]

Üzerinemi yapıştıracak yoksa eski verinin bir altındaki hücredenmi başlayarak yapıştıracak.

.

 

[mbattal]

eski verinin bir altından başlayacak

 

[Ömer]

eski verinin bir altından başlayacak

Sub Deneme()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
son = S1.[A65536].End(3).Row + 1
If S1.Range("A" & S1.[F1]) = "" Then
S2.Range("C8:C" & S2.[G1] + 7).Copy S1.Range("A" & S1.[F1])
Else
S2.Range("C8:C" & S2.[G1] + 7).Copy S1.Range("A" & son)
End If
End Sub

.

 

[mbattal]

ömer bey olmuş gibi gözüküyor detaylı olarak inceleyeceğim
hakkınızı helel edin sizi çok uğraştırdım
çok teşekkür ederim

 

[mbattal]

üstadım eline sağlık olmuş