DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhaba
barkot no sütunundaki tüm barkot yazan hücreleri seçin,
a-z sırala tıklayın, gelen ekranda seçimi genişlet'i onaylayın
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 2 Then Exit Sub
SonKolon = Range("A2").End(xlToRight).Column
If Target.Column > SonKolon Then Exit Sub
Range("A3:G" & [A65536].End(3).Row).Sort Key1:=Cells(2, Target.Column)
MsgBox " 2. Satır ve " & Target.Column & ". Kolona Göre Sıralandı..."
End Sub