karışık olarak verilen sayıların adreslerinin bulunması

[senkron2010]

karışık bir biçimde verilen sayıların adreslerini sıralı olarak bulmak istiyorum. Düşeyara,ara,kaçıncı gibi fonksiyonlarla uğraştım fakat doğru sonucu alamadım. Bu konuda yardımlarınızı bekliyorum. örnek dosya ektedir..

 

[halit3]

Bunu denermisiniz.

Sub aktar()
Range("D2:R100").ClearContents
For r = 4 To 18
aranan1 = Cells(1, r).Value
sat = 2
For j = 1 To 2
For i = 2 To Cells(Rows.Count, "b").End(3).Row
bulunan1 = Cells(i, j).Value
If aranan1 = bulunan1 Then
Cells(sat, r).Value = Cells(i, j).Address(False, False)
sat = sat + 1
End If
Next i
Next j
Next r
MsgBox "işlem tamam"
End Sub

 

[senkron2010]

çözüm için teşekkürler... çözüm için makro kullanmadan fonksiyonlarla yapılamaz mı acaba? makro bilmeğimden bana fonksiyonla yapılmış olanı lazım

 

[halit3]

Ben makrolarla çözüm buldum fonksiyonlarla aram iyi değil

İyi çalışmalar.

 

[Ömer]

karışık bir biçimde verilen sayıların adreslerini sıralı olarak bulmak istiyorum. Düşeyara,ara,kaçıncı gibi fonksiyonlarla uğraştım fakat doğru sonucu alamadım. Bu konuda yardımlarınızı bekliyorum. örnek dosya ektedir..

Merhaba,

Veriler iki sütundan mı ibaret yoksa sütun sayısı artabilir mi?

.

 

[senkron2010]

sütun sayısı arttırılabilir

 

[senkron2010]

arkadaşlar 1 sütunlu olanı yapabildim. 2,3,4,.....n sütunlu olanı hakkında ustalardan yardımlarınızı bekliyorum.