makroda if komutu hakkında

[northcyprus]

iyi günler arkadaşlar.
bir komut yapmak istiyorum ama beceremedim..
sheet 4 de yapmak istediğim şey şu;

eğer sheet1 C5 boş ise(hiçbişey yazmıyorsa) sheet4 B9 a hiçbişey yazmasın , sheet1 C5 boş değilse(bir isim varsa) Sheet4 B9 a "VAC" yazsın.


komutu bana yazarsanız çok sevinecegim..

yardımlarınız için şimdiden çok teşekür ediyorum..

 

[veyselemre]

sub dene
if sheets("sheet1").[C5]<>"" then  
    sheets("sheet4").[B9]="VAC"
    else
    sheets("sheet4").[B9]=""
end if
end sub

 

[northcyprus]

peki bunu sheet1 C6 yı sheet4 B10
sheet1 C7 yı sheet4 B11
sheet1 C8 yı sheet4 B12

uygulamak için ne yapmam gerekir?

yardım için çok teşekürler..

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz.

Sub dene()
For i = 5 To 8
    If Sheets("sheet1").Cells(i, "C").Value <> "" Then
        Sheets("sheet4").Cells(i + 4, "B").Value = "VAC"
        Else
        Sheets("sheet4").Cells(i, 4).Value = ""
    End If
Next
End Sub

 

[northcyprus]

sayin Sezar ilginiz için teşekür ederim..
ayrica
sub dene ()
If Sheets("sheet1").[C5] <> "" Then
Sheets("sheet4").[B9] = "VAC"
Else
Sheets("sheet4").[B9] = ""
End If
End Sub

ile

Sub dene ()
If Sheets("sheet3").[B5] <> "" Then
Sheets("sheet4").[B9] = "C/O"
Else
Sheets("sheet4").[B9] = ""
End If
End Sub

bu iki form&#252;l&#252; birle&#351;tirebilirmiyiz???
ve sizin form&#252;lde nas&#305;l uygulayabilirim..

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.
Bu kodlara göre , Hem sheet1 C5'te veri olduğu takdirde hemde sheet3 B5 te veri olduğu takdirde sheet4 B9 hücresine "VAC" yazılacaktır.
İyi çalışmalar.

Sub yaz()
If Sheets("Sheet1").[C5] <> "" Then
    Sheets("Sheet4").[B9] = "VAC"
    ElseIf Sheets("Sheet3").[B5] <> "" Then
        Sheets("Sheet4").[B9] = "C/O"
    Else
    Sheets("Sheet4").[B9] = ""
End If
End Sub

 

[northcyprus]

yard&#305;mlar&#305;n&#305;z i&#231;in &#231;ok te&#351;ek&#252;rler...

 

[Orion1]

rica ederim
iyi &#231;al&#305;&#351;malar.

 

[northcyprus]

say&#305;n Sezar bir de tak&#305;ld&#305;&#287;&#305;m bir yer daha var sheet1 de tarihlerin oldu&#287;u h&#252;creler var ben onlar&#305; sheet4 =sheet1!f5 diye yaz&#305;yorum tarih varsa ayn&#305;s&#305;n&#305; yaz&#305;yor. tarih yoksa 00.01.1900 yaz&#305;yor benim istedi&#287;im tarih yoksa hi&#231;bi&#351;ey yazmas&#305;n oraya....
sizin yapm&#305;&#351; oldu&#287;unuz form&#252;l&#252; &#351;&#246;yle yapt&#305;m &#231;al&#305;&#351;&#305;yor gayet g&#252;zel
Sub HOUSEKEEPER_RAPORUNU_HAZIRLA()
For i = 5 To 36
If Sheets("sheet1").Cells(i, "C").Value <> "" Then
Sheets("sheet4").Cells(i, "B").Value = "OCC"
ElseIf Sheets("sheet3").Cells(i, "B").Value <> "" Then
Sheets("sheet4").Cells(i, "B").Value = "C/O"
Else
Sheets("sheet4").Cells(i, "B").Value = ""
End If
Next
End Sub


yanl&#305;&#351;l&#305;k yoktur in&#351;allah bi de buna bakarsan&#305;z &#231;ok sevinirim zaten rarihleri de bu form&#252;le eklemek istiyorum olursa eger..

 

[northcyprus]

Sub HOUSEKEEPER_RAPORUNU_HAZIRLA()
For i = 5 To 36
If Sheets("sheet1").Cells(i, "C").Value <> "" Then
Sheets("sheet4").Cells(i, "B").Value = "OCC"
Sheets("sheet1").Cells(i, "F").Copy
Sheets("sheet4").Cells(i, "C").PasteSpecial xlPasteValues
Sheets("sheet1").Cells(i, "G").Copy
Sheets("sheet4").Cells(i, "D").PasteSpecial xlPasteValues
ElseIf Sheets("sheet3").Cells(i, "B").Value <> "" Then
Sheets("sheet4").Cells(i, "B").Value = "C/O"
Else
Sheets("sheet4").Cells(i, "B").Value = ""
End If
Next
End Sub


tamamdir halleddim
bunu bir kontrol ederseniz sevinirim yava&#351; yava&#351; &#246;&#287;reniyorum galiba makroyu da sizlerin sayesinde &#231;&#246;ok te&#351;ek&#252;rler...