Skip to main content

AccessTr.neT


Excel'i çok kasan makronun optimize edilmesi talebi

Excel'i çok kasan makronun optimize edilmesi talebi

#13
Buda başka yöntem

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim s As Long, arr(), x As Byte, son As Long
    Const sutun As Byte = 13
    son = Range("F5000").End(3).Row
    ReDim Preserve arr(1 To son, 1 To sutun)
    If Target.Column = 6 And Target.Row > 1 Then
        Sheets("RAPOR_2").Cells.ClearContents
        For i = 1 To son
            If (Cells(i, "F") = "") Then GoTo atla
            s = s + 1
            For x = 1 To sutun
                arr(s, x) = Cells(i, x).Value
            Next
atla:
        Next i
        If s > 0 Then Sheets("RAPOR_2").Range("A1").Resize(s, sutun).Value = arr
    End If
End Sub
Cevapla
#14
[quote="feraz" pid="178541" dateline="1616178725"]
F sütununa tıklayınca çalışır.
İlginize çok teşekkür ederim. Memnun kaldım. Tavsiyenizi hemen uygulayacağım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da