belirlenen satırın kopyalanıp o sayfanın en altına yazılması

[udentr2002]

Merhaba arkadaşlar. Dosyada aşağıdaki kodlarla sayfada bir veri aratıyorum.

If ComboBox13 <> 0 Then
For Each isim In Sheets("Etken").Range("h3:h" & Sheets("Etken").Range("h65536").End(3).Row)
    If UCase(LCase(isim)) Like UCase(LCase(ComboBox13)) Then

isim diye belirlenen verinin olduğu satırın kopyalayıp aynı sayfanın en altındaki satıra yazdırmak için nasıl bir kod yazabilirim.

Şimdiden ilgilenen arkadaşlarıma çok teşekkür ederim.

 

[Ömer]

Merhaba,

Combobox ile ilgili yazdığınız kodlara bakmadım.

Sadece açıklamanıza göre;

Dim Se As Worksheet, son As Long, isim As Range
 
Set Se = Sheets("Etken")
son = Se.Cells(Rows.Count, "H").End(xlUp).Row
Set isim = Se.Range("H3:H" & son)
 
isim.Copy Se.Range("H" & son + 1)

Bu mantıkla kullanabilirsiniz..

.

 

[udentr2002]

Hocam öncelikle ilgilendiğiniz vede zaman ayırdığınız için çok teşekkür ederim.

Ancak üstadım bir butona tıkladıktan sonra kodlar çalışıyor ve çok uzun kodlarım var. Bundan dolayı o yazdığım kodlarla ilişkili olması lazım. Gönderdiğiniz kodu denedim ama olmadı.

Kısacası 1. mesajımda da yazdığım kod da da anlaşılacağı gibi sayfada H stünunda "isim" değişkeni adında bir veriyi aratıp bulduruyorum bundan sonrasında bu bulduğu H stünundaki verinin olduğu satırı kopyalayıp aynı sayfanın altına yazması tekrar bakarsanız çok sevinirim üstadım.

Not : Dün Akşam evimden giremediğim için cevap yazamadım

SAYGILARIMLA

 

[Ömer]

Sayın udentr2002,

Kod'un yaptığı da tam olarak budur. Demekki dosyanızda farklı bir uygulama var. Yada ben yanlış anlıyorum.

Yazdığınız kodlardan da bu uygulamayı anlamak zor.

Küçük bir örnek ekleyerek açıklarmısınız.

.

 

[Ömer]

Soruyu farklı olarak tekrar sorayım.

H sütununda "isim" adlı veri aranıyor, 15. satırda bulununca 15. satırın tümü mü H sütunundaki son boş hücredeki satıra kopyalanıyor.

Ve ek olarak "isim" adı değerden birden fazla olursa tümü sırayla kopyalanacak mı?

İstediğiniz bu mu? Çünkü yukarıda anladığım bu değil di. Orada H sütunundaki verileri alıp son satıra kopyalama yapıyordu

.

 

[udentr2002]

Hocam tekrar teşekkür ederim ilginiz için.

isim adlı değişkeni H stünunda arıyor bulduğu verinin olduğu satırı a stünundan z stünuna kadar kopyalayıp bu kopyaladığı satırı aynı sayfanın en alt satırına yapıştırması lazım

Hakkınızı helal edin.

 

[Ömer]

Bu şekilde deneyiniz.

    Dim c As Range, ilkadres As Variant
    Dim Se As Worksheet, SonS As Long, son As Long
 
    Set Se = Sheets("Etken")
    son = Se.Cells(Rows.Count, "H").End(xlUp).Row
 
    Set c = Se.Range("H2:H" & son).Find("isim", _
    LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            SonS = Se.Cells(Rows.Count, "H").End(xlUp).Row
            Se.Range("A" & c.Row & ":Z" & c.Row).Copy Se.Range("A" & SonS + 1)
 
            Set c = Se.Range("H2:H" & son).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If

.

 

[udentr2002]

Hocam sizi yordum kusura bakmayın hakkınızı helal edin.

Fakat dediğimi yapamadım sizin gönderdiğiniz kod da olmadı sanırım benim kodlarda bir hata var onu bulmaya çalışıyorum. ve mantığını değiştirip başka bir yol bulmaya çalışacağım. İlginiz ve alakanız için çok teşekkür ederim.

SAĞLICAKLA KALIN

 

[Ömer]

Dosya ekleyerek detaylı açıklarsanız daha sağlıklı olur diye düşünüyorum.

.