ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[pislick0]

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