KOŞULLU İŞLEM YAPMA

[rdeniro]

KOÞULLU ÝÞLEM YAPMA

İYİ GÜNLER AKÞAMLAR!

BELKİ BU SORUMUN CEVABI ÇOK BASİT OLACAK AMA VISUAL BASIC'I ÇOK BİLMEDİÐİM İÇİN BU KONUDA BANA YARDIMCI OLURSANIZ ÇOK SEVİNİRİM.

AÞAÐIDAKİ Ã?RNEKTE START TIMER İLE ZAMAN BAÞLIYOR VE SAYFA1' DE ZAMANA GÃ?RE B8 HÜCRESİNDE 0-9 ARASINDA RAKAMLAR HER DAKİKA DEÐİÞİYOR.

BENİM YAPMAK İSTEDİÐİM AÞAÐIDA START TIMER'DAN SONRA **************** GÃ?STERİLEN BÃ?LÜMDEN SONRAKİ KISIM ÞU ÞEKİLDE İÞLEM YAPSIN. ÞAYET B8 HÜCRESİ 5 DEN KÜÇÜKSE

Sheets("1").Select
Range("F1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("D3").Select
Selection.Copy
Range("D4499").Select
ActiveSheet.Paste

BU İÞLEMİ YAPIP Sheets("2").Select İLE BAÞLAYAN İÞLEMİ YAPMADAN DÃ?NGÜYE DEVAM ETSİN. ÞAYET B8 HÜCRESİ 5 DEN BÜYÜKSE Sheets("1").Select İLE BAÞLAYAN BÃ?LÜMÜN İÞLEMİ YAPMADAN

Sheets("2").Select
Range("D2").Select
Selection.Copy
Range("D361").Select
ActiveSheet.Paste

BU İÞLEMİ YAPARAK DÃ?NGÜYE DEVAM ETSİN.

SAYGILARIMLA.

------------------------------------------------------------------------
İÞTE Ã?RNEK
------------------------------------------------------------------------


Sub The_Sub()
Application.ScreenUpdating = False
Sayfa1.Range("A5").Select
Selection.Copy
Range("C1") = Format(Range("B1") - Now, "hh:mm:ss")
Range("C2") = Format(Now, "hh:mm:ss")
Sayfa1.Range("B5").Select
Sayfa1.Paste
Application.ScreenUpdating = False
Start_Timer
****************
**Sheets("1").Select
Range("F1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("D3").Select
Selection.Copy
Range("D4499").Select
ActiveSheet.Paste
****************
**Sheets("2").Select
Range("D2").Select
Selection.Copy
Range("D361").Select
ActiveSheet.Paste

End Sub