Makroya ilave kriter eklemek

[zozotr]

Üstadlar iyi akşamlar dilerim.

Aşağıda vereceğim makroya bir kriter daha eklemek istiyorum.
Kriter de çok basit, şöyleki :

BC sütünunda hücre değeri : OK yazanları yerleştirme yapması.
Eğer hücre değeri OK dışında başka birşey yazıyorsa yerleştirme yapmaması şeklinde kriter koymak istiyorum.

Yardımlarınız için şimdiden teşekkür ederim.

Kullandığım Makro aşağıdadır :

Sub doldur()

Dim S1 As Worksheet, S2 As Worksheet, Wf As WorksheetFunction
Dim i As Long, c As Range, s As Integer, j As Long

Set S1 = Sheets("LİSTE")
Set S2 = Sheets("RAPOR")
Set Wf = WorksheetFunction

Application.ScreenUpdating = False
S2.Select

For i = 2 To S1.Cells(Rows.Count, "F").End(xlUp).Row
Set c = [A:A].Find(S1.Cells(i, "F"), , xlValues, xlWhole)
If Not c Is Nothing Then
If S1.Cells(i, "L") <> "" Then
s = Wf.Match(S1.Cells(i, "L"), S2.Rows(1), 0)
For j = S1.Cells(i, "L") To (S1.Cells(i, "M") - 1)
Cells(c.Row, s) = S1.Cells(i, "D")
s = s + 1
Next j
End If
End If
Next i

Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıtştır.", vbInformation
End Sub

 

[RBozkurt]

Sub doldur()

Dim S1 As Worksheet, S2 As Worksheet, Wf As WorksheetFunction
Dim i As Long, c As Range, s As Integer, j As Long

Set S1 = Sheets("LİSTE")
Set S2 = Sheets("RAPOR")
Set Wf = WorksheetFunction

Application.ScreenUpdating = False
S2.Select

For i = 2 To S1.Cells(Rows.Count, "F").End(xlUp).Row
Set c = [A:A].Find(S1.Cells(i, "F"), , xlValues, xlWhole)
If Not c Is Nothing Then
'Orjinal Satır
'If S1.Cells(i, "L") <> "" Then
'Güncellenen Satır
If S1.Cells(i, "L") <> "" And S1.Cells(i, "BC") = "OK" Then 'Liste Sayfasındaki BC Hücresi.
s = Wf.Match(S1.Cells(i, "L"), S2.Rows(1), 0)
For j = S1.Cells(i, "L") To (S1.Cells(i, "M") - 1)
Cells(c.Row, s) = S1.Cells(i, "D")
s = s + 1
Next j
End If
End If
Next i

Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıtştır.", vbInformation
End Sub

 

[zozotr]

Sayın Bozkurt;

Cevabınız için teşekkür ederim. Sorumun net bir şekilde cevabıydı. Verdiğiniz kod mükemmel şekilde çalıştı.
Vaktiniz müsaitse eğer Size yine aynı makroyla ilgili olarak farklı bir soru daha sormak isterim.

Bu makroda veriler doldurulurken bir tabloda tarihlere karşılık bir hücre değeri dolduruluyor.
Çakışan tarihler doldurulan sayfada renklendirilebilir mi acaba?

Örnek verecek olursam :

Doldur makrosu çalıştığı zaman
Tablomuzda 01.05 ile 08.05 arasındaki her hücreye A118 yazıyor.
Aynı tarihlerde veya birbirini bütünleyen tarihlerde örnek olarak tablomuzda :
04.05 ile 10.05 arasında A122 kayıtlı ve Doldur makrosu çalıştığı anda
01.05 ile 03.05 e A118 yazıyor ve 04.05 ile 10.05 arasına da A122 yazıyor. Doğal olarak bende çakışan tarihleri göremiyorum.
Burada çakışan tarihler 04.05 ile 07.05 arası. Bu tarihleri renklendirme veya o kadar veri arasında belli etme şansımız olur mu?

Dediğim gibi eğer vaktiniz müsait ise ve sorumun bir cevabı varsa yine yardımcı olmanızı rica edeceğim.

Saygılar ve iyi akşamlar dilerim.

 

[RBozkurt]

Sayın @zozotr
Örnek dosya paylaşımı yaparsanız daha faydalı olabilir. Senaryoyu kurup canlandırmak zor oluyor.
Forumda ustalarımız bu konularda daha tecrübeli, dosya olursa en azından bi gidiş yolu canlanır.