hücrede eşleme yapmak; satırda hücre aratmak

[snx111]

1ci satırda her hücreye 1 sayı gelcek şekilde 1 2 1 1 1 1 2 1 2 diye ilerde eklenip güncellenecek hücreler var.

Benim istediğim ;
Yazacagım rakam dizisini 1 ci satırda bulması ; 2 1 1 2 2 2 1 1 yazdıgımda eşleme yapıp eğer varsa ; aynı yazdıgım gibi satırda bulup göstermesini istiyorum ?
mümkün mü ?

Eğer ki eşlemeden 1 den fazla varsa tüm eşlemeleri bulmasını istiyorum ..

ayrıca satır değilde sütunda yapılabilirse oda makbul olur. Satırı stuna çevirebiliriz kolaylık olacaksa eğer daha iyi olur.

 

[Huseyinkis]

ekteki kodları denermisiniz.
D10 hücresine en son bulduğu satırın başlanğıç sütun numarasını E10 hücresine bitiş sütun numarasını yazar.

Sub HK()

For i = 2 To Cells(1, 5000).End(xlToLeft).Column
For a = 4 To Cells(8, 5000).End(xlToLeft).Column

If Cells(8, a).Value = Cells(1, i + orta).Value And a = Cells(8, 5000).End(xlToLeft).Column Then
bas = i
son = i + orta
ElseIf Cells(8, a).Value = Cells(1, i + orta).Value Then
orta = orta + 1
Else
bas = 0
orta = 0
son = 0
GoTo aaa:
End If

If bas <> 0 Then
Cells(10, 4).Value = bas
Cells(10, 5).Value = son
End If
Next a
aaa:
Next i

End Sub

 

[snx111]

1463 sabit duruyor d 10 hücresinde ve istediğim bu değil ;

8 ci satırdaki peşpeşe bir kombine gibi düşünün 1211212211 ayrı hücrelerde ama kombine olarak;
1 ci satırda eşlemeli aynı insan dna 'sı a-g-d-g-g-d-d-t-t-a

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

8. satırdaki hücrelere değer girip sonucu gözlemleyin.

Listelenen adreslere çift tıkladığınızda ilgili adres otomatik olarak seçilecektir.

 

[snx111]

çift tıklamama rağmen hiçbir hareket gözleyemedim .
hücrede sayı değiştirincede hiçbir hareket gözleyemedim

 

[snx111]

TAMAMDIR. AYNI ANDA BAŞKA KİTAP AÇIK OLUNCA ÇALIŞMIYORMUŞ .

çok teşekkür ederim bunu benim yapmam imkansızdı ...