• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro Çalıştırılınca Hesaplama Çok Uzun Sürüyor

B

betoncu

Katılım
1 Aralık 2005
Mesajlar
376
Excel Vers. ve Dili
EXCEL 2002
TÜRKÇE
Örnek dosyada kullandığım makroyu çalıştırınca işlem süresi nerdeyse 5 dakika kadar sürüyor.

Bu süreyi kısaltabilirmiyiz?

Yardımlarınızı bekliyorum.
 

Ekli dosyalar

Merhaba,

Kodlara başına ve sonuna aşağıdaki renkli ilaveleri ekleyin.

Kod: 
Sub DoluAktar()
 
[COLOR=blue]    With Application[/COLOR]
[COLOR=blue]       .ScreenUpdating = False[/COLOR]
[COLOR=blue]       .Calculation = xlManual[/COLOR]
[COLOR=blue]    End If[/COLOR]
 
'
'
'Kodlarınız
'
'
[COLOR=blue]    With Application[/COLOR]
[COLOR=blue]       .ScreenUpdating = True[/COLOR]
[COLOR=blue]       .Calculation = xlAutomatic[/COLOR]
[COLOR=blue]    End If[/COLOR]
 
End Sub
 
İlgili işlemi yapan kodu aşağıda belirtiyorum. Bu kodu kısaltabilirmiyiz acaba?


Sub DoluAktar()
'Tasarı_Aylık_Plan sayfasında bulunan İzinliler Yardımcı Tablosundaki hücre değerlerini boşlukları atlayarak İzinliler tablosunda ilgili sütunlara yerleştirir.
Dim sat As Long, i As Long

Range("X6:X14").ClearContents 'Bir önceki işlemden veri kalmaması için dolu hücrelerin yazdırılacağı alan temizlenir.

sat = 6 'Dolu hücreleri kaçıncı satırdan yazdırmaya başlatılacaksa o satır numarası yazılır.
For i = 69 To 110 'Dolu ve boş verilerin başladığı satır bilgisini ifade eder.
If Cells(i, "X") <> "" Then ' Dolu hücreye ait sütun bilgisini ifade eder.
Cells(sat, "X") = Cells(i, "X") 'Yazdırılacak sütun ve daha sonra dolu ve boş verilerin bulunduğu sütun bilgisini ifade eder.
sat = sat + 1
End If
Next i

Range("Y6:Y14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "Y") <> "" Then
Cells(sat, "Y") = Cells(i, "Y")
sat = sat + 1
End If
Next i

Range("Z6:Z14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "Z") <> "" Then
Cells(sat, "Z") = Cells(i, "Z")
sat = sat + 1
End If
Next i

Range("AA6:AA14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AA") <> "" Then '
Cells(sat, "AA") = Cells(i, "AA")
sat = sat + 1
End If
Next i

Range("AB6:AB14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AB") <> "" Then
Cells(sat, "AB") = Cells(i, "AB")
sat = sat + 1
End If
Next i

Range("AC6:AC14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AC") <> "" Then
Cells(sat, "AC") = Cells(i, "AC")
sat = sat + 1
End If
Next i


Range("AD6:AD14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AD") <> "" Then
Cells(sat, "AD") = Cells(i, "AD")
sat = sat + 1
End If
Next i

Range("AE6:AE14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AE") <> "" Then
Cells(sat, "AE") = Cells(i, "AE")
sat = sat + 1
End If
Next i

Range("AF6:AF14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AF") <> "" Then
Cells(sat, "AF") = Cells(i, "AF")
sat = sat + 1
End If
Next i

Range("AG6:AG14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AG") <> "" Then
Cells(sat, "AG") = Cells(i, "AG")
sat = sat + 1
End If
Next i

Range("AH6:AH14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AH") <> "" Then
Cells(sat, "AH") = Cells(i, "AH")
sat = sat + 1
End If
Next i

Range("AI6:AI14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AI") <> "" Then
Cells(sat, "AI") = Cells(i, "AI")
sat = sat + 1
End If
Next i

Range("AJ6:AJ14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AJ") <> "" Then
Cells(sat, "AJ") = Cells(i, "AJ")
sat = sat + 1
End If
Next i

Range("AK6:AK14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AK") <> "" Then
Cells(sat, "AK") = Cells(i, "AK")
sat = sat + 1
End If
Next i


Range("AL6:AL14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AL") <> "" Then
Cells(sat, "AL") = Cells(i, "AL")
sat = sat + 1
End If
Next i

Range("AP6:AP14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AP") <> "" Then
Cells(sat, "AP") = Cells(i, "AP")
sat = sat + 1
End If
Next i

Range("AQ6:AQ14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AQ") <> "" Then
Cells(sat, "AQ") = Cells(i, "AQ")
sat = sat + 1
End If
Next i

Range("AR6:AR14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AR") <> "" Then
Cells(sat, "AR") = Cells(i, "AR")
sat = sat + 1
End If
Next i

Range("AS6:AS14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AS") <> "" Then
Cells(sat, "AS") = Cells(i, "AS")
sat = sat + 1
End If
Next i

Range("AT6:AT14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AT") <> "" Then
Cells(sat, "AT") = Cells(i, "AT")
sat = sat + 1
End If
Next i

Range("AU6:AU14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AU") <> "" Then
Cells(sat, "AU") = Cells(i, "AU")
sat = sat + 1
End If
Next i

Range("AV6:AV14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AV") <> "" Then
Cells(sat, "AV") = Cells(i, "AV")
sat = sat + 1
End If
Next i

Range("AW6:AW14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AW") <> "" Then
Cells(sat, "AW") = Cells(i, "AW")
sat = sat + 1
End If
Next i

Range("AX6:AX14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AX") <> "" Then
Cells(sat, "AX") = Cells(i, "AX")
sat = sat + 1
End If
Next i

Range("AY6:AY14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AY") <> "" Then
Cells(sat, "AY") = Cells(i, "AY")
sat = sat + 1
End If
Next i

Range("AZ6:AZ14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "AZ") <> "" Then
Cells(sat, "AZ") = Cells(i, "AZ")
sat = sat + 1
End If
Next i

Range("BA6:BA14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "BA") <> "" Then
Cells(sat, "BA") = Cells(i, "BA")
sat = sat + 1
End If
Next i

Range("BB6:BB14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "BB") <> "" Then
Cells(sat, "BB") = Cells(i, "BB")
sat = sat + 1
End If
Next i

Range("BC6:BC14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "BC") <> "" Then
Cells(sat, "BC") = Cells(i, "BC")
sat = sat + 1
End If
Next i

Range("BD6:BD14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "BD") <> "" Then
Cells(sat, "BD") = Cells(i, "BD")
sat = sat + 1
End If
Next i

Range("BE6:BE14").ClearContents

sat = 6
For i = 69 To 110
If Cells(i, "BE") <> "" Then
Cells(sat, "BE") = Cells(i, "BE")
sat = sat + 1
End If
Next i


End Sub
 
Ömer bey dediğiniz gibi yaptım ama baştaki kodların End If kısmında hata veriyor.
 
Ömer' Alıntı:
Merhaba,

Kodlara başına ve sonuna aşağıdaki renkli ilaveleri ekleyin.

Kod: 
Sub DoluAktar()
 
[COLOR=blue]    With Application[/COLOR]
[COLOR=blue]       .ScreenUpdating = False[/COLOR]
[COLOR=blue]       .Calculation = xlManual[/COLOR]
[COLOR=blue]    End If[/COLOR]
 
'
'
'Kodlarınız
'
'
[COLOR=blue]    With Application[/COLOR]
[COLOR=blue]       .ScreenUpdating = True[/COLOR]
[COLOR=blue]       .Calculation = xlAutomatic[/COLOR]
[COLOR=blue]    End If[/COLOR]
 
End Sub
Genişletmek için tıkla ...



Ömer bey kodlar üzerinde örnek ile gösterebilirmisiniz? Yapmaya çalıştım ama bir hata veriyor.
 
Kodlarınızı incelemedim, sadece ileveyi yaparak denedim. 15-20 sn. işlemi bitirdi.
Bu şekilde deneyin.

Kod: 
Sub DoluAktar()
 
 'Tasarı_Aylık_Plan sayfasında bulunan İzinliler Yardımcı Tablosundaki hücre değerlerini boşlukları atlayarak İzinliler tablosunda ilgili sütunlara yerleştirir.
    Dim sat As Long, i As Long
 
    With Application
       .ScreenUpdating = False
       .Calculation = xlManual
    End If
 
    Range("X6:X14").ClearContents    'Bir önceki işlemden veri kalmaması için dolu hücrelerin yazdırılacağı alan temizlenir.
 
    sat = 6 'Dolu hücreleri kaçıncı satırdan yazdırmaya başlatılacaksa o satır numarası yazılır.
    For i = 69 To 110 'Dolu ve boş verilerin başladığı satır bilgisini ifade eder.
        If Cells(i, "X") <> "" Then ' Dolu hücreye ait sütun bilgisini ifade eder.
            Cells(sat, "X") = Cells(i, "X") 'Yazdırılacak sütun ve daha sonra dolu ve boş verilerin bulunduğu sütun bilgisini ifade eder.
            sat = sat + 1
        End If
    Next i
 
    Range("Y6:Y14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "Y") <> "" Then
            Cells(sat, "Y") = Cells(i, "Y")
            sat = sat + 1
        End If
    Next i
Range("Z6:Z14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "Z") <> "" Then
            Cells(sat, "Z") = Cells(i, "Z")
            sat = sat + 1
        End If
    Next i
Range("AA6:AA14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AA") <> "" Then '
            Cells(sat, "AA") = Cells(i, "AA")
            sat = sat + 1
        End If
    Next i
Range("AB6:AB14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AB") <> "" Then
            Cells(sat, "AB") = Cells(i, "AB")
            sat = sat + 1
        End If
    Next i
Range("AC6:AC14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AC") <> "" Then
            Cells(sat, "AC") = Cells(i, "AC")
            sat = sat + 1
        End If
    Next i
 
Range("AD6:AD14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AD") <> "" Then
            Cells(sat, "AD") = Cells(i, "AD")
            sat = sat + 1
        End If
    Next i
Range("AE6:AE14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AE") <> "" Then
            Cells(sat, "AE") = Cells(i, "AE")
            sat = sat + 1
        End If
    Next i
Range("AF6:AF14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AF") <> "" Then
            Cells(sat, "AF") = Cells(i, "AF")
            sat = sat + 1
        End If
    Next i
Range("AG6:AG14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AG") <> "" Then
            Cells(sat, "AG") = Cells(i, "AG")
            sat = sat + 1
        End If
    Next i
Range("AH6:AH14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AH") <> "" Then
            Cells(sat, "AH") = Cells(i, "AH")
            sat = sat + 1
        End If
    Next i
Range("AI6:AI14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AI") <> "" Then
            Cells(sat, "AI") = Cells(i, "AI")
            sat = sat + 1
        End If
    Next i
Range("AJ6:AJ14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AJ") <> "" Then
            Cells(sat, "AJ") = Cells(i, "AJ")
            sat = sat + 1
        End If
    Next i
Range("AK6:AK14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AK") <> "" Then
            Cells(sat, "AK") = Cells(i, "AK")
            sat = sat + 1
        End If
    Next i
 
Range("AL6:AL14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AL") <> "" Then
            Cells(sat, "AL") = Cells(i, "AL")
            sat = sat + 1
        End If
    Next i
Range("AP6:AP14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AP") <> "" Then
            Cells(sat, "AP") = Cells(i, "AP")
            sat = sat + 1
        End If
    Next i
Range("AQ6:AQ14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AQ") <> "" Then
            Cells(sat, "AQ") = Cells(i, "AQ")
            sat = sat + 1
        End If
    Next i
Range("AR6:AR14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AR") <> "" Then
            Cells(sat, "AR") = Cells(i, "AR")
            sat = sat + 1
        End If
    Next i
Range("AS6:AS14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AS") <> "" Then
            Cells(sat, "AS") = Cells(i, "AS")
            sat = sat + 1
        End If
    Next i
Range("AT6:AT14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AT") <> "" Then
            Cells(sat, "AT") = Cells(i, "AT")
            sat = sat + 1
        End If
    Next i
Range("AU6:AU14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AU") <> "" Then
            Cells(sat, "AU") = Cells(i, "AU")
            sat = sat + 1
        End If
    Next i
Range("AV6:AV14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AV") <> "" Then
            Cells(sat, "AV") = Cells(i, "AV")
            sat = sat + 1
        End If
    Next i
Range("AW6:AW14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AW") <> "" Then
            Cells(sat, "AW") = Cells(i, "AW")
            sat = sat + 1
        End If
    Next i
Range("AX6:AX14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AX") <> "" Then
            Cells(sat, "AX") = Cells(i, "AX")
            sat = sat + 1
        End If
    Next i
Range("AY6:AY14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AY") <> "" Then
            Cells(sat, "AY") = Cells(i, "AY")
            sat = sat + 1
        End If
    Next i
Range("AZ6:AZ14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AZ") <> "" Then
            Cells(sat, "AZ") = Cells(i, "AZ")
            sat = sat + 1
        End If
    Next i
Range("BA6:BA14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BA") <> "" Then
            Cells(sat, "BA") = Cells(i, "BA")
            sat = sat + 1
        End If
    Next i
Range("BB6:BB14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BB") <> "" Then
            Cells(sat, "BB") = Cells(i, "BB")
            sat = sat + 1
        End If
    Next i
Range("BC6:BC14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BC") <> "" Then
            Cells(sat, "BC") = Cells(i, "BC")
            sat = sat + 1
        End If
    Next i
Range("BD6:BD14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BD") <> "" Then
            Cells(sat, "BD") = Cells(i, "BD")
            sat = sat + 1
        End If
    Next i
Range("BE6:BE14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BE") <> "" Then
            Cells(sat, "BE") = Cells(i, "BE")
            sat = sat + 1
        End If
    Next i
 
    With Application
       .ScreenUpdating = True
       .Calculation = xlAutomatic
    End If
 
End Sub

.
 
Yardım

Ömer' Alıntı:
Kodlarınızı incelemedim, sadece ileveyi yaparak denedim. 15-20 sn. işlemi bitirdi.
Bu şekilde deneyin.

Kod: 
Sub DoluAktar()
 
 'Tasarı_Aylık_Plan sayfasında bulunan İzinliler Yardımcı Tablosundaki hücre değerlerini boşlukları atlayarak İzinliler tablosunda ilgili sütunlara yerleştirir.
    Dim sat As Long, i As Long
 
    With Application
       .ScreenUpdating = False
       .Calculation = xlManual
    End If
 
    Range("X6:X14").ClearContents    'Bir önceki işlemden veri kalmaması için dolu hücrelerin yazdırılacağı alan temizlenir.
 
    sat = 6 'Dolu hücreleri kaçıncı satırdan yazdırmaya başlatılacaksa o satır numarası yazılır.
    For i = 69 To 110 'Dolu ve boş verilerin başladığı satır bilgisini ifade eder.
        If Cells(i, "X") <> "" Then ' Dolu hücreye ait sütun bilgisini ifade eder.
            Cells(sat, "X") = Cells(i, "X") 'Yazdırılacak sütun ve daha sonra dolu ve boş verilerin bulunduğu sütun bilgisini ifade eder.
            sat = sat + 1
        End If
    Next i
 
    Range("Y6:Y14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "Y") <> "" Then
            Cells(sat, "Y") = Cells(i, "Y")
            sat = sat + 1
        End If
    Next i
Range("Z6:Z14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "Z") <> "" Then
            Cells(sat, "Z") = Cells(i, "Z")
            sat = sat + 1
        End If
    Next i
Range("AA6:AA14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AA") <> "" Then '
            Cells(sat, "AA") = Cells(i, "AA")
            sat = sat + 1
        End If
    Next i
Range("AB6:AB14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AB") <> "" Then
            Cells(sat, "AB") = Cells(i, "AB")
            sat = sat + 1
        End If
    Next i
Range("AC6:AC14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AC") <> "" Then
            Cells(sat, "AC") = Cells(i, "AC")
            sat = sat + 1
        End If
    Next i
 
Range("AD6:AD14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AD") <> "" Then
            Cells(sat, "AD") = Cells(i, "AD")
            sat = sat + 1
        End If
    Next i
Range("AE6:AE14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AE") <> "" Then
            Cells(sat, "AE") = Cells(i, "AE")
            sat = sat + 1
        End If
    Next i
Range("AF6:AF14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AF") <> "" Then
            Cells(sat, "AF") = Cells(i, "AF")
            sat = sat + 1
        End If
    Next i
Range("AG6:AG14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AG") <> "" Then
            Cells(sat, "AG") = Cells(i, "AG")
            sat = sat + 1
        End If
    Next i
Range("AH6:AH14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AH") <> "" Then
            Cells(sat, "AH") = Cells(i, "AH")
            sat = sat + 1
        End If
    Next i
Range("AI6:AI14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AI") <> "" Then
            Cells(sat, "AI") = Cells(i, "AI")
            sat = sat + 1
        End If
    Next i
Range("AJ6:AJ14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AJ") <> "" Then
            Cells(sat, "AJ") = Cells(i, "AJ")
            sat = sat + 1
        End If
    Next i
Range("AK6:AK14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AK") <> "" Then
            Cells(sat, "AK") = Cells(i, "AK")
            sat = sat + 1
        End If
    Next i
 
Range("AL6:AL14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AL") <> "" Then
            Cells(sat, "AL") = Cells(i, "AL")
            sat = sat + 1
        End If
    Next i
Range("AP6:AP14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AP") <> "" Then
            Cells(sat, "AP") = Cells(i, "AP")
            sat = sat + 1
        End If
    Next i
Range("AQ6:AQ14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AQ") <> "" Then
            Cells(sat, "AQ") = Cells(i, "AQ")
            sat = sat + 1
        End If
    Next i
Range("AR6:AR14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AR") <> "" Then
            Cells(sat, "AR") = Cells(i, "AR")
            sat = sat + 1
        End If
    Next i
Range("AS6:AS14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AS") <> "" Then
            Cells(sat, "AS") = Cells(i, "AS")
            sat = sat + 1
        End If
    Next i
Range("AT6:AT14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AT") <> "" Then
            Cells(sat, "AT") = Cells(i, "AT")
            sat = sat + 1
        End If
    Next i
Range("AU6:AU14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AU") <> "" Then
            Cells(sat, "AU") = Cells(i, "AU")
            sat = sat + 1
        End If
    Next i
Range("AV6:AV14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AV") <> "" Then
            Cells(sat, "AV") = Cells(i, "AV")
            sat = sat + 1
        End If
    Next i
Range("AW6:AW14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AW") <> "" Then
            Cells(sat, "AW") = Cells(i, "AW")
            sat = sat + 1
        End If
    Next i
Range("AX6:AX14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AX") <> "" Then
            Cells(sat, "AX") = Cells(i, "AX")
            sat = sat + 1
        End If
    Next i
Range("AY6:AY14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AY") <> "" Then
            Cells(sat, "AY") = Cells(i, "AY")
            sat = sat + 1
        End If
    Next i
Range("AZ6:AZ14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "AZ") <> "" Then
            Cells(sat, "AZ") = Cells(i, "AZ")
            sat = sat + 1
        End If
    Next i
Range("BA6:BA14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BA") <> "" Then
            Cells(sat, "BA") = Cells(i, "BA")
            sat = sat + 1
        End If
    Next i
Range("BB6:BB14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BB") <> "" Then
            Cells(sat, "BB") = Cells(i, "BB")
            sat = sat + 1
        End If
    Next i
Range("BC6:BC14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BC") <> "" Then
            Cells(sat, "BC") = Cells(i, "BC")
            sat = sat + 1
        End If
    Next i
Range("BD6:BD14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BD") <> "" Then
            Cells(sat, "BD") = Cells(i, "BD")
            sat = sat + 1
        End If
    Next i
Range("BE6:BE14").ClearContents
 
    sat = 6
    For i = 69 To 110
        If Cells(i, "BE") <> "" Then
            Cells(sat, "BE") = Cells(i, "BE")
            sat = sat + 1
        End If
    Next i
 
    With Application
       .ScreenUpdating = True
       .Calculation = xlAutomatic
    End If
 
End Sub

.
Genişletmek için tıkla ...

Ömer bey bu kodu uygulayınca End If kısmında hata veriyor. İnceleyebilirmisiniz?
 
Ömer bey yaptığınız değişikliği örnek dosya ile gönderebilirmisiniz. Sanırım yazdığınız kodu yapıştırırken yanlış birşey yapıyorum.
 
Yazım hatası yapmışım.

End If yerine End With yazarak deneyiniz.
 
Ömer bey çok teşekkür ederim. Sonunda oldu:)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst