+- 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)
Cvp: Excel'i çok kasan makronun optimize edilmesi talebi - turankr - 15/01/2017
(15/01/2017, 21:56)turankr yazdı: Sayfanızı inceledim. Pazartesi telefonla arayacağım
Cvp: Excel'i çok kasan makronun optimize edilmesi talebi - C*e*l*o*y*c*e - 15/01/2017
İletişim sayfasından
Cvp: Excel'i çok kasan makronun optimize edilmesi talebi - turankr - 15/01/2017
Excel olarak çözüm bulabilir miyiz? Vba ile
Cvp: Excel'i çok kasan makronun optimize edilmesi talebi - C*e*l*o*y*c*e - 15/01/2017
Daha öncede dediğim gibi,excel bilmiyorum ancak çogu insan exceli terk ederek acces ve vb net programlara geçiyor,exceli artık ileride veri çogaldıkça sıkıntı yaptıgını biliyoruz,bundan dolayı ileride işyerinizde sıkıntı yaşamamak için bence sizde bunu gözden geçirmelisiniz.
Cvp: Excel'i çok kasan makronun optimize edilmesi talebi - turankr - 15/01/2017
Size mail attım, Pazartesi görüşelim.
Re: Excel'i Çok Kasan Makronun Optimize Edilmesi Talebi - feraz - 19/03/2021
F sütununa tıklayınca çalışır.
Herhangi yere tıklayınca çalışması için ise If Target.Column = 6 And Target.Row > 1 Then burayı ve en sondaki End If bunu siliniz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As Long
If Target.Column = 6 And Target.Row > 1 Then
Sheets("RAPOR_2").Cells.ClearContents
For i = 1 To Range("F5000").End(3).Row
If (Cells(i, "F") = "") Then GoTo atla
s = s + 1
Sheets("RAPOR_2").Range("A" & s & ":M" & s).Value = Range("A" & i & ":M" & i).Value
atla:
Next i
End If
End Sub