Çözüldü Birden Fazla Makroyu Tek Butona Atama Nasıl Yapılır

smile66 · 25 Nis 2021

Birden fazla makroyu tek buton ile nasıl çalıştırabiliri.z
Teşekkür ederim.

Sub MalzemeSirala()
'
' Düğme1222_Tıkla Makro
Application.ScreenUpdating = False
Sheets("Veri").Select
Range("A1:B255").Select
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Add2 Key:=Range("A2:A255") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Veri").Sort
.SetRange Range("A1:B255")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Sheets("ANA").Select
End With
End Sub

Sub MalzemeSirala()
'
' Düğme1222_Tıkla Makro
Application.ScreenUpdating = False
Sheets("Veri").Select
Range("A1:B255").Select
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Add2 Key:=Range("A2:A255") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Veri").Sort
.SetRange Range("A1:B255")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Sheets("ANA").Select
End With
End Sub

Sub Makro4()
'
' Makro4 Makro
'

'
Range("C1:G255").Select
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Add2 Key:=Range("C2:C255") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Veri").Sort
.SetRange Range("C1:G255")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Makro5()
'
' Makro5 Makro
'

'
Range("A1:B255").Select
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Add2 Key:=Range("A2:A255") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Veri").Sort
.SetRange Range("A1:B255")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Makro6()
'
' Makro6 Makro
'

'
Range("H2:I255").Select
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Veri").Sort.SortFields.Add2 Key:=Range("H3:H255") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Veri").Sort
.SetRange Range("H2:I255")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

smile66 · 26 Nis 2021

Suskun' Alıntı:
Tamam . Yukardaki koyu yazılan değişiklikleri yap.

teşekkür ederim genel olarak çalışıyor ellerinize sağlık
ama
altta eklediğim resimdeki hataları nasıl çözebiliriz?
1- Butona tıklayınca hücre seçimini gösterir bir görüntü var bunu nasıl görünmez yapabiliriz?
2- Verilerin girildiği hücreler tek hücrelerden oluşuyor, bu hücreleri "Malın / Hizmetin / İşin Adı", "firma", "adres" gibi isimlere göre birleştirdim bunlar birleştirilmiş hücre olarak çalışıyor fakat kırmızı işaretlediğim "Birimi", "Birimi" ve "kimlik" yazan yerdeki hücreleri birleştriince macroda hata veriyor.

teşekkür ederim

Özcan ÖZBEK · 26 Nis 2021

smile66' Alıntı:
yok çalışıyor ama sıralama yapmıyor, hemde tek buton olmasını istiyorum

Kodu bir butona yapıştır. Sendeki sütunlar değişikse makrodaki sütun adlarını değiştir.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

smile66 · 26 Nis 2021

Özcan ÖZBEK' Alıntı:
Kodu bir butona yapıştır. Sendeki sütunlar değişikse makrodaki sütun adlarını değiştir.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

en alttaki

Range("a1").Select

alanda sarı renkli hata veriyor

smile66 · 26 Nis 2021

smile66' Alıntı:
en alttaki

Range("a1").Select

alanda sarı renkli hata veriyor

Değerli hocalarım yardımcı olursanız sevinirim

İbrahim Görgülü · 21 Şub 2022

smile66' Alıntı:
Değerli hocalarım yardımcı olursanız sevinirim

Çünkü Ana sayfada a1 hücresi gizlenmiş durumda Range("Gizli olmayan hücre adı").select yapın örneğin Range("a61").select

Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

Foruma hoş geldin 👋 Ziyaretçi

Çözüldü Birden Fazla Makroyu Tek Butona Atama Nasıl Yapılır

smile66

İbrahim Görgülü

smile66

Ekli dosyalar

Özcan ÖZBEK

smile66

smile66

İbrahim Görgülü

Moderatör