[Yardım]  Çok yavaş çalışıyor

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Çok yavaş çalışıyor

İleti#1)  pislick0 » 25 Kas 2020 15:55

Merhaba, aşağıdaki kodu yazdım bir iş için, çalışıyor ancak 1 dk filan sürüyor bitirmesi. Daha hızlı çalışması için ne gibi revizyon yapabilirim.

Sayfa 1 de A kolunda yazan numaraları ilk 7 sayfada arayıp bulunca yanındaki hücreyi çekmesini istiyorum sadece .

Sub deneme()



Dim cell As Range

Dim a As String

Dim b As String

Dim cellt As Range



Application.ScreenUpdating = False







For i = 1 To 300

Range("a1:a1000").Select

For Each cell In Selection

If Not IsEmpty(cell) And IsNumeric(cell.Value) Then

cell.Value = CDbl(cell.Value)

End If

Next cell



a = Sheets("Sayfa1").Cells(i, 1)



For k = 1 To 7

Range("b10:b1000").Select

For Each cellt In Selection

If Not IsEmpty(cellt) And IsNumeric(cellt.Value) Then

cell.Value = CDbl(cellt.Value)

End If

Next cellt



For h = 1 To 20

b = Sheets(k).Cells(h, 2)

b = b * 1





If a = b Then

Sheets("Sayfa1").Cells(i, 2).Value = Sheets(k).Cells(h, 3).Value

End If

Next h

Next k

Next i

Application.ScreenUpdating = True



End Sub
Kullanıcı avatarı
pislick0
Yeni Başlamış
 
Kayıt: 06 Ekm 2020 20:52
Meslek: kimya mühendisi
Yaş: 40
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot], VeryBadThings, y_tekeli ve 3 misafir

Bumerang - Yazarkafe