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.

HAKAN132 · 19 Ağustos 2024

Kod:

Sub günü_aktar()
'
' günü_aktar Makro
'

'
If [D1] = Application.Sum([p7:p1000]) = 0 Then

    Range("I7:I1000").Select
    Selection.Copy
    Range("p7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      
ElseIf [D1] = Application.Sum([q7:q1000]) = 0 Then
        
    Range("I7:I1000").Select
    Selection.Copy
    Range("q7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
ElseIf [D1] = Application.Sum([r7:r1000]) = 0 Then
        
    Range("I7:I1000").Select
    Selection.Copy
    Range("r7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
 End If
      
End Sub