işlemin tekrarlanması

[frekans]

makro yazımında acemiyim. C3 hücresinin değeri tanımlanan işlemi yapınca değerini değiştiriyor. C3 sıfırdan büyük olduğu sürece işlemi yapmasını istiyorum. Bunun icin kodun basina ne yazmam gerekir.if ve for'un kullanimini tam cozemedim. yardımcı olursaniz cok sevinirim...

 

[sefer seferoğlu]

Örnek dosya

makro yazımında acemiyim. C3 hücresinin değeri tanımlanan işlemi yapınca değerini değiştiriyor. C3 sıfırdan büyük olduğu sürece işlemi yapmasını istiyorum. Bunun icin kodun basina ne yazmam gerekir.if ve for'un kullanimini tam cozemedim. yardımcı olursaniz cok sevinirim...

=IF(C3>0;ÇALIŞACAK KODLAR;" ")
Örnek bir dosya ekleseydiniz daha çok yardımcı oluna bilirdi.
İyi günler..

 

[frekans]

haklısınız..ekteki dosyada her işlem için makroya basmam gerekiyor. hücre sıfır oluncaya kadar işlemi sürdürsün istiyorum...

 

[frekans]

arkadaslar cok temel bi sey ama bilmiyorum..acil falan da yazmak istemiyorum..2 dk su kodun basina bir if yazabilecek arkadas yok mu?

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki ile değiştirip denermisiniz.

Sub Makro2()
Devam: If [C3] = 0 Then Exit Sub
    Sheets("Sayfa2").Select
    Range("INDIRECT(C1)").Select
    Selection.Insert Shift:=xlDown
    Range("A2").Select
    Selection.Copy
    Range("INDIRECT(D1)").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sayfa1").Select
    If [C3] > 0 Then GoTo Devam
End Sub

 

[mehmett]

Kodlarınızın başına aşağıdaki satırı ekleyin.

If [C3] = 0 Then Exit Sub

 

[frekans]

Sayın Cost Control ve Sayın Mehmett elinize saglik.. uzerimden bi yuk attiniz..