Excelde döngü

[mehmet6006]

Merhabalar,

Bir sütünumda olan verileri arayıp karşılık gelen verileri diğer sayfaya çekmem gerekiyor. Düşeyara ile yaptığım zaman istediğim veri dışında farklı bir veri girdiğimde aramak istediğim sütun boş kalıyor ve ben bunu istemiyorum. Şu şekilde örnek veriyim A2 hücremde "qwe" verisi A3 hücremde "asd" A4 hücremde "zxc" verileri var ve ben A sütununda dolu olan son hücreye kadar "zxc" verisini arayıp yine A4 ten örnek verecek olursam B4 hücresinde olan veriyi çekmek istiyorum. Sonraki "zxc" verim örnek olarak A12 hücresinde olsun. Yani düşeyara ile veriler arasında boşluk kalıyor. Konuyla ilgili yardımcı olur musunuz?

 

[Orion1]

Örnek dosya linki verirseniz daha hızlı cevap alabilirsiniz.

 

[mehmet6006]

http://dosya.co/tnvg3jrs6oux/deneme.xlsx.html

Bu dosyada örnek olarak istediğim şey bulunmakta

 

[Orion1]

linkteki dosya hazırdır.


DOSYAYI INDIR

Sub arabul59()
Dim k As Range, sonsat As Long, sat As Long, adrs As String
Range("E3:E" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
sat = 3
Set k = Range("B2:B" & sonsat).Find(Range("C1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adrs = k.Address
    Do
        Cells(sat, "E").Value = k.Offset(0, 1).Value
        sat = sat + 1
        Set k = Range("B2:B" & sonsat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adrs
End If
MsgBox "İşlem tamamlandı."
End Sub

 

[excel41]

Alternatif olsun

Dosya linki :http://s2.dosya.tc/server6/enh9mq/deneme.xlsx.html

 

[mehmet6006]

linkteki dosya hazırdır.


DOSYAYI INDIR

Sub arabul59()
Dim k As Range, sonsat As Long, sat As Long, adrs As String
Range("E3:E" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
sat = 3
Set k = Range("B2:B" & sonsat).Find(Range("C1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adrs = k.Address
    Do
        Cells(sat, "E").Value = k.Offset(0, 1).Value
        sat = sat + 1
        Set k = Range("B2:B" & sonsat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adrs
End If
MsgBox "İşlem tamamlandı."
End Sub

Tesekkurler yapmak istediğim buydu. Fakat bu işlemi butonla değilde satıra formül yazarak ve diğer satırlar için satırı aşağıya sürükleyerek yapabilir miyiz?

 

[mehmet6006]

Tesekkurler yapmak istediğim buydu. Fakat bu işlemi butonla değilde satıra formül yazarak ve diğer satırlar için satırı aşağıya sürükleyerek yapabilir miyiz?

Yani exceldeki formulle değilde makroyu formuluze ederek demek istiyorum

 

[excel41]

Yani exceldeki formulle değilde makroyu formuluze ederek demek istiyorum

sayin @mehmet6006
bizde tesekur ederiz dönüş yaptığınız için lakin makro ile yapılan olmadi formülle yapılan olmadı..bir zahmet son hücrenin kulağından tutup çekebilirsiniz veya butona basmayı deneyin

 

[mehmet6006]

Sayin @ excel41
İlginiz ve alakanız için teşekkurler. Formulle yapmışsınız zaten görmedim.