temp1 = 10
temp2 = 7
temp3 = 20
For X = (temp1 - 5) To (temp1 + temp3 - 6)
Worksheets("Test").Range("A" & temp2).Value = Worksheets("Data").Range("C" & temp1).Value
Worksheets("Test").Range("B" & temp2).Value = Worksheets("Data").Range("D" & temp1).Value
Worksheets("Test").Range("C" & temp2).Value = Worksheets("Data").Range("E" & temp1).Value
Worksheets("Test").Range("D" & temp2).Value = Worksheets("Data").Range("F" & temp1).Value
Boyle bir dongu var bu sadece A, B, C, D degil daah AK ya kadar devam ediyor.
Dolayisiyla cok yavas calisiyor. Tek tek her satiri girdigi icin
Ornegin Clear icin soyle bir sey kullaniyorum acaba aynisi burada da mumkun olur mu?
Worksheets("ATN").Range("A7:AG250").Clear
cok gusel A sutunundan AG nin 250. satirina kadar tum hucreleri temizliyor.
Yukaridaki durumda hizlandirmak icin su tarz bisey mi yazmaliyim :
Worksheets("Test").Range("A:AG" & temp2).Value = Worksheets("Data").Range("C:AI" & temp1).Value
Ama bu sekilde calismiyor,
ne önerirsiniz?
temp2 = 7
temp3 = 20
For X = (temp1 - 5) To (temp1 + temp3 - 6)
Worksheets("Test").Range("A" & temp2).Value = Worksheets("Data").Range("C" & temp1).Value
Worksheets("Test").Range("B" & temp2).Value = Worksheets("Data").Range("D" & temp1).Value
Worksheets("Test").Range("C" & temp2).Value = Worksheets("Data").Range("E" & temp1).Value
Worksheets("Test").Range("D" & temp2).Value = Worksheets("Data").Range("F" & temp1).Value
Boyle bir dongu var bu sadece A, B, C, D degil daah AK ya kadar devam ediyor.
Dolayisiyla cok yavas calisiyor. Tek tek her satiri girdigi icin
Ornegin Clear icin soyle bir sey kullaniyorum acaba aynisi burada da mumkun olur mu?
Worksheets("ATN").Range("A7:AG250").Clear
cok gusel A sutunundan AG nin 250. satirina kadar tum hucreleri temizliyor.
Yukaridaki durumda hizlandirmak icin su tarz bisey mi yazmaliyim :
Worksheets("Test").Range("A:AG" & temp2).Value = Worksheets("Data").Range("C:AI" & temp1).Value
Ama bu sekilde calismiyor,
ne önerirsiniz?