Kriterlere uyan kısma veri yerleştirme.

[leumruk]

Selamlar...
Verilen bir metni, istenilen kriterlerin sağlandığı hücreyi bularak nasıl yerleştirebiliriz. Örnek dosyada açıklamaya çalıştım.
Saygılar...

 

[Merhum İdris SERDAR]

Selamlar...
Verilen bir metni, istenilen kriterlerin sağlandığı hücreyi bularak nasıl yerleştirebiliriz. Örnek dosyada açıklamaya çalıştım.
Saygılar...

Dosyanız ekte.

.

 

[janveljan]

Ekteki dosyayı inceleyin

 

[leumruk]

Syn. yurttaş,
Teşekkür ederim. Gerçekten güzel olmuş. Ancak, veri hücresi sürekli değişecek ve aktarıldığı yerde kalıcı olacak.
Bu nedenle makro daha kullanışlı olur sanırım.
Makro kodunu da almamız mümkün mü?

 

[leumruk]

Ekteki dosyayı inceleyin

Syn. janveljan,
msjı yeni gördüm. İstediğim buydu. Çok teşekkür ederim. Ellerine sağlık.
Saygılar...

 

[Kemal Demir]

İyi geceler,

ara = Range("a11:l11").Find(Range("d2").Value).Column
kolon = Columns(ara - 1).Column
adresyaz = Columns(kolon).Find(Range("c2").Value).Row
Cells(adresyaz, kolon + 1).Value = Range("b2").Value
Cells(adresyaz, kolon + 1).Interior.ColorIndex = 6

Ek'teki örneği inceleyiniz

 

[Kemal Demir]

Tekrar selam,

Baya yaşlanmışım( geç cevap vermişim ).Alternatif olsun yinede örnek kalsın dusuncesindeyim.

NOT:Janveljan güzel çözüm.
NOT:yurttas hocam, ali bey ve sizin formul yazmanızı hayranlıkla izliyor ve takdir ediyorum.

 

[leumruk]

Tekrar selam,

Baya yaşlanmışım( geç cevap vermişim ).Alternatif olsun yinede örnek kalsın dusuncesindeyim.

NOT:Janveljan[\b] güzel çözüm.

Olsun hocam, alternatif olur. Farklı seçeneklerin olması her zaman için faydalıdır. Teşekkür ederim, ellerinize sağlık.

Bir sorum daha olacak, her iki kod içinde geçerli bir soru: Belirtilen alanların hemen altında E, F,G,H bölümleri de var. Aynı şekilde ve hemen altında A'nın altında E, F'nin altında G gibi aramaya bunları da dahil edebilir miyiz?

 

[Kemal Demir]

Sn.leumruk,

Peki veriler 1 den 6 ya kadar sabit mi olacak?

Uzerınde calismam lazım(Doğru ve sağlıklı cevap olması açısından) örnek ile ilgilenmeye çalışıcağım.

 

[leumruk]

Sn.leumruk,

Peki veriler 1 den 6 ya kadar sabit mi olacak?

Uzerınde calismam lazım(Doğru ve sağlıklı cevap olması açısından) örnek ile ilgilenmeye çalışıcağım.

Hayır 1-4 arası olacak. Ben onu örnek olsun diye sormuştum. Ek bir dosya gönderiyorum.

 

[Kemal Demir]

Ek'teki örneği inceleyiniz.

Çözüm okadar da zor değilmiş.(Ama baya baya körelmişim)


Not:Ek'teki örnek zannedersem işinizi görecektir.

 

[leumruk]

Ek'teki örneği inceleyiniz.

Çözüm okadar da zor değilmiş.(Ama baya baya körelmişim)


Not:Ek'teki örnek zannedersem işinizi görecektir.

Sayın hocam,
Çok teşekkür ederim. Unutmuş haliniz buysa, ötesini düşünemiyorum.
Saygılar...

 

[leumruk]

Syn. hocam herşey çok güzel gidiyordu. Ama biryerlerde bir hata var. Ama ne olduğunu tam olarak çıkaramadım. Sanırım, aynı sütunun üst satırlarında tanımladığımız harfin aynısı varsa, metni çok alakasız bir yere atıyor. Aynı sütuna atıyor ama seçtiğimiz bölüme değil. İlgilenirseniz çok memnun olurum.

 

[leumruk]

Sub aktar()
If [F13] = "A" Or [F13] = "B" Or [F13] = "C" Or [F13] = "D" Then
harf = Cells(13, 6)
sayı = Cells(13, 8).Value
txt = Cells(13, 3)
If harf = "A" Then
    st = 3
ElseIf harf = "B" Then
    st = 6
ElseIf harf = "C" Then
    st = 9
ElseIf harf = "D" Then
    st = 12
End If
If st > 0 Then Cells(16 + sayı, st) = txt
Else:
harf = Cells(13, 6)
sayı = Cells(13, 8).Value
txt = Cells(13, 3)
If harf = "E" Then
    st = 3
ElseIf harf = "F" Then
    st = 6
ElseIf harf = "G" Then
    st = 9
ElseIf harf = "H" Then
    st = 12
End If
If st > 0 Then Cells(22 + sayı, st) = txt
End If
End Sub

If ve Else sağolsun. Janveljan'ın kodlarıyla beni çözüme ulaştırdı. Yine de daha kısa bir çözümü olan varsa ona da açığım.