Metin veya kelime içerisindeki harf veya rakama göre koşul verme.

[yasso38]

Merhaba,

Sorum kısaca mesela,
A1 hücresinde y harfi varsa b2'deki değeri 1 ile çarpacak
A1 hücresinde 3y değişkeni varssa b2'deki değeri 3 ile çarpacak

Not: A1 hücresindeki kelimeden değişkenler bulunacak. Mesela Ayşe içerisindeki y harfi veya abc3y'deki 3y gibi.

Bunu formüllendirmede yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Tam olarak istediğinizi anlayamadığım için bir örnek hazırladım.
İstediğiniz bu mu?

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HUC As Byte
If Intersect(Target, [a1:b2]) Is Nothing Then Exit Sub
[C1:C2].Clear
For HUC = 1 To Len([A1])
If Cells(HUC, "A") Like "*" & "y" & "*" Then
[c1] = [b2] * 1
End If
Next
For HUC = 1 To Len([A2])
If Cells(HUC, "A") Like "*" & "3y" & "*" Then
[c2] = [b2] * 3
End If
Next
End Sub

 

[Merhum İdris SERDAR]

Merhaba,

Sorum kısaca mesela,
A1 hücresinde y harfi varsa b2'deki değeri 1 ile çarpacak
A1 hücresinde 3y değişkeni varssa b2'deki değeri 3 ile çarpacak

Not: A1 hücresindeki kelimeden değişkenler bulunacak. Mesela Ayşe içerisindeki y harfi veya abc3y'deki 3y gibi.

Bunu formüllendirmede yardımcı olursanız sevinirim.

Örnek dosya ekte.

.

 

[Ali]

Soru açık değil.

abc3y gibi sadece y'den önce tek rakam mı var abc12y gibi çift basamaklı yada daha fazla olabilirmi?

abc3yy ise kaç y kabul edilecek 3y mi 3y'den sonra bir daha y geldiği için 3y+y = 4y mi ??

 

[yasso38]

Arkadaşların hepsinin de ilgisine teşekkür ederim.
Soruma karşılık olacak yanıtı sn. Yurttas'dan aldım.

Teşekkürler.

Sorunun daha iyi anlaşılıp daha pratik çözüm yolunun bulunabilmesi açısından da uygulamak istediğim dosyanın örneğinide gönderiyorum. Yardımcı olursanız sevinirim.

 

[Ali]

F4 hücrenize

=EĞER(EHATALIYSA(ARA(9,99999999999999E+307;--SOLDAN(C4;SATIR($A$1:$A$1024)))*E4);"";ARA(9,99999999999999E+307;--SOLDAN(C4;SATIR($A$1:$A$1024)))*E4)

G4 hücrenize

=EĞER(EHATALIYSA(ARA(9,99999999999999E+307;--SOLDAN(D4;SATIR($A$1:$A$1024)))*E4);"";ARA(9,99999999999999E+307;--SOLDAN(D4;SATIR($A$1:$A$1024)))*E4)

yazıp aşağı doğru çekiniz.

 

[yasso38]

Teşekkürler Ali Bey Fakat doğru hesaplama yapmıyor. Belki ben hata yapıyorum.

Ben başka bir kod ile çözdüm.

Dosyayı gönderiyorum.

 

[ziya]

Merhaba,
VBA hariç hemen her soruyu ve verilen cevapları tek tek inceliyorum. Sorulan ve verilen cevapları VE hele bir de soruyu soranın kendi sorusuna bulduğu çözümü görünce düşüncelerimi paylaşmak istedim, (kıssadan hisse gibi birşey)
"Sorulan soruya örnek dosya eklenmemişse mutlaka örnek dosya istenmeli."
İstenmeliki, harf te değişse rakam da değişse kalıcı bir çözüm çıksın ortaya.
Selamlar,

 

[Ali]

Teşekkürler Ali Bey Fakat doğru hesaplama yapmıyor. Belki ben hata yapıyorum.

Ben başka bir kod ile çözdüm.

Dosyayı gönderiyorum.

Çünkü ne demek istediğinizi henüz şimdi anladım. Siz tablonuzu ekleyip el ile olması gerekenleri yazsa idiniz daha kolay çözüm bulabilirdik.

 

[yasso38]

Merhaba,
VBA hariç hemen her soruyu ve verilen cevapları tek tek inceliyorum. Sorulan ve verilen cevapları VE hele bir de soruyu soranın kendi sorusuna bulduğu çözümü görünce düşüncelerimi paylaşmak istedim, (kıssadan hisse gibi birşey)
"Sorulan soruya örnek dosya eklenmemişse mutlaka örnek dosya istenmeli."
İstenmeliki, harf te değişse rakam da değişse kalıcı bir çözüm çıksın ortaya.
Selamlar,

Sayın Ziya Bey, benim örnek dosyayı eklememekteki amacım çözümü anlayarak yapmak istediğimden kaynaklanmaktadır. Çözüm için kendime başlangıç arıyordum. Bunu da buldum. Bunun yanısıra da ileride ihtiyacıma yarıyabilecek bazı bilgileride elde etmiş oldum.
Yoksa dosyayı olduğu gibi göndermiş olsam kendi çabam olmadan arkadaşlar çözüm üretecekler ve belki de ben çözüme tam olarak nasıl ulaşıldığını bilmeyecektim.
Buradaki benim hatam, soruyu tam olarak size anlatabileceğimi düşünmemdir.
Teşekkürler.