AccessTr.neT
Excel'i çok kasan makronun optimize edilmesi talebi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel'i çok kasan makronun optimize edilmesi talebi (/konu-excel-i-cok-kasan-makronun-optimize-edilmesi-talebi.html)

Sayfalar: 1 2 3

RE: Excel'i çok kasan makronun optimize edilmesi talebi - feraz - 19/03/2021

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


RE: Excel'i Çok Kasan Makronun Optimize Edilmesi Talebi - turankr - 17/04/2021

[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.