kod test

ALPEN · 4 Mart 2005

[vb:1:0686ffaf71]If Application.WorksheetFunction.CountIf(Sheets("profil").Range("olmayanlar"), Sheets("profil")).Cells(d, 4) Then GoTo atla [/vb:1:0686ffaf71]

ALPEN · 4 Mart 2005

Kod:

If Application.WorksheetFunction.CountIf&#40;Sheets&#40;"profil"&#41;.Range&#40;"olmayanlar"&#41;, Sheets&#40;"profil"&#41;&#41;.Cells&#40;d, 4&#41; Then GoTo atla

ALPEN · 4 Mart 2005

If Application.WorksheetFunction.CountIf(Sheets("profil").Range("olmayanlar"), Sheets("profil")).Cells(d, 4) Then GoTo atla

ALPEN · 4 Mart 2005

[vb:1:27e96a6d55]If Application.WorksheetFunction.CountIf(Sheets("profil").Range("olmayanlar"), Sheets("profil")).Cells(d, 4) Then GoTo atla [/vb:1:27e96a6d55]

ALPEN · 4 Mart 2005

Kod:

If Application.WorksheetFunction.CountIf&#40;Sheets&#40;"profil"&#41;.Range&#40;"olmayanlar"&#41;, Sheets&#40;"profil"&#41;&#41;.Cells&#40;d, 4&#41; Then GoTo atla

ALPEN · 4 Mart 2005

Kod:

If Application.WorksheetFunction.CountIf&#40;Sheets&#40;"profil"&#41;.Range&#40;"olmayanlar"&#41;, Sheets&#40;"profil"&#41;&#41;.Cells&#40;d, 4&#41; Then GoTo atla

ALPEN · 4 Mart 2005

Kod:

If Application.WorksheetFunction.CountIf(Sheets("profil").Range("olmayanlar"), Sheets("profil")).Cells(d, 4) Then GoTo atla

danersin · 4 Mart 2005

[vb:1:a57048d1c7]If Application.WorksheetFunction.CountIf(Sheets("profil").Range("olmayanlar"), Sheets("profil")).Cells(d, 4)>0 Then GoTo atla [/vb:1:a57048d1c7]

Kod:

If Application.WorksheetFunction.CountIf&#40;Sheets&#40;"profil"&#41;.Range&#40;"olmayanlar"&#41;, Sheets&#40;"profil"&#41;&#41;.Cells&#40;d, 4&#41;>0 Then GoTo atla

osan003 · 4 Mart 2005

Sayın Alpen yukarıya bir çok kod yazmışsınız, bunlar bizim gibi acemilere hitap etmiyor bunların ne kodlarıdır,veya kullanıcıya ne gibi kolaylıklar sağlarlar,en azından açıklamalarını da yazarsanız bizlerde bilgilenmiş oluruz. İyi günler

danersin · 4 Mart 2005

@osan003 bölümün ismine bakarmısınız. Burası test alanı sadece.