mozyildirim
Altın Üye
- Katılım
- 3 Nisan 2015
- Mesajlar
- 37
- Excel Vers. ve Dili
- Ofis 2021 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 03-06-2024
Selamlar,
Excelde PW isimli sekmede E sütununu A dan Z ye sıralamak için kaydettiğim bu makroyu kullanıyorum.
Bu makroya bir ekleme yapmak istedim.
Misal ALİ isimli sekmenin J14 hücresinde GİZLİ yazıyorsa makro çalışmasın, hatta açık olmalıdır diye uyarı pop up ı açsın veya makronun çalışması için kullanıcıyı uyaran bir yazı da olur.
Bu mümkün müdür? Yardımını esirgemeyen dostlara şimdiden bir teşekkürü borç bilirim.
Excelde PW isimli sekmede E sütununu A dan Z ye sıralamak için kaydettiğim bu makroyu kullanıyorum.
Bu makroya bir ekleme yapmak istedim.
Misal ALİ isimli sekmenin J14 hücresinde GİZLİ yazıyorsa makro çalışmasın, hatta açık olmalıdır diye uyarı pop up ı açsın veya makronun çalışması için kullanıcıyı uyaran bir yazı da olur.
Bu mümkün müdür? Yardımını esirgemeyen dostlara şimdiden bir teşekkürü borç bilirim.
Kod:
Sub alici_sirala()
'
' alıcı_sırala Makro
'
'
ActiveWorkbook.Worksheets("PW").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PW").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"E:E"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("PW").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub