• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

smile66

Yeni Üye
Katılım
22 Nis 2021
Mesajlar
38
Aldığı beğeni
2
Excel V
Office 365 TR
Konu Sahibi
Birden fazla makroyu tek buton ile nasıl çalıştırabiliri.z
Teşekkür ederim.

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.

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
 
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Suskun' Alıntı:
Tamam . Yukardaki koyu yazılan değişiklikleri yap.
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
smile66' Alıntı:
Değerli hocalarım yardımcı olursanız sevinirim
Genişletmek için tıkla...
Çünkü Ana sayfada a1 hücresi gizlenmiş durumda Range("Gizli olmayan hücre adı").select yapın örneğin Range("a61").select
 
Olumlu oy 0 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst