belli alandaki dolu hücreleri seçmek ve kopyalamak

[umit1907]

Merhabalar

benim yapmak istediğim aşağıdaki kod ama bu kod sayfayı komple tarayıp seçiyor. ben sadece c2 hüsresi ile f20 gücresi arasını tarayıp bu alandaki hücreleri kopyalamasını istiyoruum.

Sub Used_Range()
ActiveSheet.UsedRange.Select
End Sub

Şimdiden Teşekkürler.

 

[Skorpiyon]

Sayın umit1907,

Yanlış anlamadı isem, aşağıdaki kod işinizi görür.

Range("C2:F20").Select
Bu kod C2 ile F20 arasını seçer, kopyalamak isterseniz

Range("D7:K17").Copy
olarak deneyiniz.

 

[umit1907]

İlginiz İçin teşekkür ederim Şaban abi
anlatamadım abi galiba benim yapmak istediğimi c2 ile f20 arasında bir tablom var bunda bazen 2 satır dolu oluyor bazen 4 bazende hepsi. bunlardan sadece dolu olan satırları seçmek istiyorum.

 

[Korhan Ayhan]

Merhaba,

Sorunuzla eklediğiniz örnek dosyanız çelişiyor. İnceleyip yapacağınız dönüşe göre size yanıt verebiliriz.

 

[tirEdsOuL]

arkadaşın anlatmak istediği de benim sıkıntım ile aynı sanırım.. benim anladığım ve sorunum şöyle..
B sütunu yukarıdan aşağıya müşteriler ile dolu ve karşılık gelen satırlarında da farkı ödemeler var.. B2 sütunun da ki xxx kişinin F2 karşılığında Bandrol ödemesi var ama onun altındaki birkaç müşteri de bu yok.. bu F sütunundaki dolu olan alanları farklı bir sayfada o müşteri ismi ve karşılığında ki bondrol fiyatı ile kopyalamak istiyor..

dün ben bunu farklı bir şekilde http://www.excel.web.tr/f50/satyrlar-arasyndaki-bo-luou-nasyl-yok-edebilirim-t107259.html#post584515 bu konuda sormuştum ama arkadaşın istediği daha mantıklı..

 

[umit1907]

Ayrıntılı örneği ekledim kusura bakmayın.

 

[umit1907]

Usta abiler bir bakabilirmisiniz.Ayrıntılı örneği ekledim.Şimdiden Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

A sütunundaki tarih olan hücreyi seçtikten sonra kodu çalıştırın.

Sub KOPYALA()
    Dim İLK As Long, SON As Long, X As Long
    
    İLK = Selection.Row
    
    For X = İLK To Cells(Rows.Count, 2).End(3).Row
        If Trim(Cells(X, 2)) = "" Then
            SON = X - 1
            Exit For
        End If
    Next
    
    Range("B" & İLK + 1 & ":H" & SON).Copy
End Sub

 

[Orion1]

Bu olurmu?
H sütununa yazıyor.

For Each hcr In Range("C2:F20").SpecialCells(xlCellTypeConstants)
    sat = sat + 1
    Cells(sat, "H").Value = hcr.Value
Next

 

[umit1907]

Korhan abi süpersin eline sağlık abi

 

[Orion1]

9ncu mesajda yazdığım oldumu peki,denedinizmi?

 

[umit1907]

Abi onu çalıştıramadın ya vb bilgim fazla yok Korhan abininkini modüle attım direk çalıştı ama bunu çalıştıramadım

 

[Orion1]

Abi onu çalıştıramadın ya vb bilgim fazla yok Korhan abininkini modüle attım direk çalıştı ama bunu çalıştıramadım

Benim kodların başına ve sonunba bu yazdığımı yazın ve boş bir modüle atıp tekrar deneyin.Unutmayın bir prosedür Sub ile başlar End Sub ile biter.İçinede kodlarımızı yazarız.

Sub Z_59
   '--Kodlar
   '--Kodlar
End Sub

 

[umit1907]

abi bu senin kod kopyala yapıştır yapıyor bana sadece kopyala lazımdı. )

 

[Orion1]

abi bu senin kod kopyala yapıştır yapıyor bana sadece kopyala lazımdı. )

Kopyala yapıştır yapmıyor.
Sadece belirtilen alandaki sadece değerleri birden alıp istenen yere atıyor.
Sende kopyala yaptıktan sonra onu bir yere yapıştırmayacanmı?
Elbet yapıştıracan.Kopyala ile bırakmayacan zaten.Öyle diilmi!!??

 

[umit1907]

abi ekte açıkladım kodlarıda ekledim

 

[Orion1]

abi ekte açıkladım kodlarıda ekledim

Anladım başka bir dosyaya yapıştıracaksanız.
Yazdığım kod buna müsait değil.Excele olsaydı dediğim şekilde olurdu.
Kolay gelsin.

 

[umit1907]

İlginiz İçin Çok teşekkür ederim abicim.