Hücre İçinde Aranan Kelimeye Göre işlem Yaptırma

[mehmeterguc]

Arkadaşlar iyi çalışmalar;

Ekte yüklediğim ürün isimlerindeki listelerin karşılarına STT tarihi atmam gerekiyor.Ancak A sütununda eğer ayran geçiyorsa STT ni 15 gün sonrasına 05.11.13 KYM kelime veya hmj kelimesi geçiyorsa 17 ve 18 gün sonrası olan 07/08.11.13 şeklinde otomatik girmesini istiyorum.

Yardımcı olur musunuz ?

 

[Emir Hüseyin Çoban]

. . .

200 GR.HMJ.BARDAK AYRAN bu veride STT ne olacak.

. . .

 

[mehmeterguc]

bugunun 18 gun sonrası olacak ve tek tarih olacak
ancak hmj ve kym lı urunlerde 17/18 gun ileri tarihler olup 2 stt tarihi yazmasını istiyorum.
Çok sağolun.

 

[Emir Hüseyin Çoban]

. . .

Tüm olasılıkları belirtin ki tekrardan buda vardı bu olmamış durumu yaşamayalım.

Sadece ayran geçiyorsa +15 gün
ayran ve hmj geçiyorsa +18 gün
ayran yok kmj geçiyorsa +17 gün hmj geçiyorsa +18 gün ikiside geçiyorsa +17/+18 gün
koşullar bu şekilde mi ve başka koşul var mı ?
. . .

 

[mehmeterguc]

Sadece ayran geçiyorsa +15 gün
sadece hmj geçiyorsa +17/+18 gün
sadece kym geciyorsa +17/+18 gün

bu sekildedir üstadım.

 

[Emir Hüseyin Çoban]

. . .

2 nolu mesajıma bakın. Örnek tablonuzda A4 hücresindeki veri
HMJ ve ayran içeriyor.
Bu durumda 15 gün mü 18 gün mü, tüm koşulları göze almıyorsunuz.

. . .

 

[mehmeterguc]

Hmj ve Ayran var ise A4 te olduğu gibi 15 gün olsun istiyorum (ayran yazdıgı için) ; hmj. kase yogurt ve kym. yogurt larda ise +17/+18 gün olsun istiyorum. Tereyaglarında ise 4 ay sonrasının tarihi yazsın istiyorum.
Kısaca özetlemek gerekirse hmj ayranlarda (ayran yazdıgı için +15 gün ) hmj. yogurtlarda ve kym. de ise +17/+18 gün seklinde ayarlarsanız sevinirim. Umarım bu sefer dogru anlatabılmısımdır.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

son = [A65536].End(3).Row
Range("D4:E65536").ClearContents
Range("J4:K65536").ClearContents
For i = 4 To son

' KYM
If Cells(i, "A") Like "*" & "KYM" & "*" Then
onyedi = Format(Now + 17, "dd")
onsekiz = Format(Now + 18, "dd.mm.yyyy")
Cells(i, "D") = onyedi & "/" & onsekiz
Else: End If

If Cells(i, "G") Like "*" & "KYM" & "*" Then
onyedi = Format(Now + 17, "dd")
onsekiz = Format(Now + 18, "dd.mm.yyyy")
Cells(i, "J") = onyedi & "/" & onsekiz
Else: End If

' HMJ
If Cells(i, "A") Like "*" & "HMJ" & "*" Then
onyedi = Format(Now + 17, "dd")
onsekiz = Format(Now + 18, "dd.mm.yyyy")
Cells(i, "D") = onyedi & "/" & onsekiz
Else: End If

If Cells(i, "G") Like "*" & "HMJ" & "*" Then
onyedi = Format(Now + 17, "dd")
onsekiz = Format(Now + 18, "dd.mm.yyyy")
Cells(i, "J") = onyedi & "/" & onsekiz
Else: End If

' AYRAN
If Cells(i, "A") Like "*" & "AYRAN" & "*" Then
Cells(i, "D") = Format(Now + 15, "dd.mm.yyyy")
Else: End If

If Cells(i, "G") Like "*" & "AYRAN" & "*" Then
Cells(i, "J") = Format(Now + 15, "dd.mm.yyyy")
Else: End If

Next i
End Sub

. . .

 

[mehmeterguc]

Ancak geri dönebiliyorum Hüseyin hocam çok sağolun.