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
İ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