Çö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.

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

Suskun · 25 Nis 2021

Tuş'a aşağıdaki makroyu atayın.
HTML:

Kod:

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

smile66 · 25 Nis 2021

buton yine çalışmıyor.

Sub Calistir()
Call MalzemeSirala
Call FirmaSirala
Call TertipSirala
Call Makro4
Call Makro5
Call Makro6
End Sub

şeklinde ama düğmeye tıklayınca işlem yapmıyor herhangi bir hatada vermiyor

Suskun · 25 Nis 2021

Neden ekleme yapıyorsunuz ki? Sadece verilen yordamı kullanın. Call makro6 dan sonra END SUB olsun.

Suskun · 25 Nis 2021

Örnek dosya ekleyin bakalım.

smile66 · 25 Nis 2021

Suskun' Alıntı:
Örnek dosya ekleyin bakalım.

Buyrun ekledim

Suskun · 25 Nis 2021

Sorularınızda düzeltme yapmayın. #3nolu mesajınız
Bu şekildeydi :
buton yine çalışmıyor.

Sub Calistir()
Call MalzemeSirala
Call FirmaSirala
Call TertipSirala
Call Makro4
Call Makro5
Call Makro6
Range("U66").Select
ActiveSheet.Shapes.Range(Array("Button 16")).Select
Application.Goto Reference:="Calistir"
Range("Y64").Select
ActiveSheet.Shapes.Range(Array("Button 16")).Select
Application.Goto Reference:="Calistir"
End Sub
Range("B61").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("K61").Select
ActiveCell.FormulaR1C1 = "dss"
Range("B64").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("K64").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("Q64").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("R61").Select
ActiveCell.FormulaR1C1 = "ssds"
Range("AA61").Select
ActiveCell.FormulaR1C1 = "sdsds"
Range("AC64").Select
ActiveCell.FormulaR1C1 = "ssds"
Range("AG66").Select
ActiveSheet.Shapes.Range(Array("Button 16")).Select
Application.Goto Reference:="Calistir"

şeklinde ekleme yapıyor

smile66 · 25 Nis 2021

Suskun' Alıntı:
Sorularınızda düzeltme yapmayın. #3nolu mesajınız
Bu şekildeydi :
buton yine çalışmıyor.

Sub Calistir()
Call MalzemeSirala
Call FirmaSirala
Call TertipSirala
Call Makro4
Call Makro5
Call Makro6
Range("U66").Select
ActiveSheet.Shapes.Range(Array("Button 16")).Select
Application.Goto Reference:="Calistir"
Range("Y64").Select
ActiveSheet.Shapes.Range(Array("Button 16")).Select
Application.Goto Reference:="Calistir"
End Sub
Range("B61").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("K61").Select
ActiveCell.FormulaR1C1 = "dss"
Range("B64").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("K64").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("Q64").Select
ActiveCell.FormulaR1C1 = "sdsd"
Range("R61").Select
ActiveCell.FormulaR1C1 = "ssds"
Range("AA61").Select
ActiveCell.FormulaR1C1 = "sdsds"
Range("AC64").Select
ActiveCell.FormulaR1C1 = "ssds"
Range("AG66").Select
ActiveSheet.Shapes.Range(Array("Button 16")).Select
Application.Goto Reference:="Calistir"

şeklinde ekleme yapıyor

tamam olabilir

Suskun · 25 Nis 2021

Olabilir de düzeltme yaptığınızı uyarmanız gerekir.
Dosyanız inceleyin Mavi Noktaya Tıklayın . Call olmadan da yordamları adını yazarak çalıştırabilirsiniz. yordam içinde sadece MalzemeSirala yazarsanız da çalışır.

smile66 · 25 Nis 2021

teşekkür ederim Hocam,

hata yok ama çalışmıyor Hocam,
dosyadaki ANA isimli sayfadaki mavi renkli alanlara veri girdikten sonra oluşturulan butona tıklayınca verileri diğer sayfa (Veri) atması gerekiyor ama herhangi bir işlem yapmıyor.
Yani Hocam, ANA sayfasına veri girip oluşturulan düğmeye tıklayınca ANA sayfasındaki veriler taşınıp alfabetik olarak Veri sayfasına aktarılacak

Suskun · 25 Nis 2021

Çünkü Makrolar tuşlarla çalışıyor. Malzeme girişi tertip girişi gibi Tuşla çalışan makroları Modul içine Sub malzemegiriş vb ekleyip toplu makroların içine eklersen çalışır.

smile66 · 25 Nis 2021

Suskun' Alıntı:
Çünkü Makrolar tuşlarla çalışıyor. Malzeme girişi tertip girişi gibi Tuşla çalışan makroları Modul içine Sub malzemegiriş vb ekleyip toplu makroların içine eklersen çalışır.

yardımcı olursanıs sevinirim

Özcan ÖZBEK · 25 Nis 2021

smile66' Alıntı:
teşekkür ederim Hocam,

hata yok ama çalışmıyor Hocam,
dosyadaki ANA isimli sayfadaki mavi renkli alanlara veri girdikten sonra oluşturulan butona tıklayınca verileri diğer sayfa (Veri) atması gerekiyor ama herhangi bir işlem yapmıyor.
Yani Hocam, ANA sayfasına veri girip oluşturulan düğmeye tıklayınca ANA sayfasındaki veriler taşınıp alfabetik olarak Veri sayfasına aktarılacak

ANA sayfadan girişini yapıyorsun. Veri sayfası aktif olduğunda otomatik sıralıyor. İşini görür mü?.

smile66 · 25 Nis 2021

Özcan ÖZBEK' Alıntı:
ANA sayfadan girişini yapıyorsun. Veri sayfası aktif olduğunda otomatik sıralıyor. İşini görür mü?.

yok çalışıyor ama sıralama yapmıyor, hemde tek buton olmasını istiyorum

Suskun · 25 Nis 2021

Oruç kafa bu kadar.

smile66 · 25 Nis 2021

Suskun' Alıntı:
Oruç kafa bu kadar.

allah kabul etsin, resimdeki hatayı veriyor, birde acaba mavi butonu ANA sayfasında yapabilir misiniz?

Suskun · 25 Nis 2021

i leri eksik yazmışım.

Call malzemeGiris
Call firmagirisi
Call tertipgirisi

olarak düzelt . Değişken tanımlama zorlamayı En baştaki OptionExplicit in başına kesme işareti (') koy. Yada sil.
Mavi butonun kenarından tut sağ tuşla kes diğer sayfaya yapıştır.

smile66 · 25 Nis 2021

Suskun' Alıntı:
i leri eksik yazmışım.

Call malzemeGiris
Call firmagirisi
Call tertipgirisi

olarak düzelt . Değişken tanımlama zorlamayı En baştaki OptionExplicit in başına kesme işareti (') koy. Yada sil.
Mavi butonun kenarından tut sağ tuşla kes diğer sayfaya yapıştır.

üstad seni yoruyorum ama aynı hatayı veriyor;
Sub Calıstır ()

sarı hatayı veriyor

Suskun · 25 Nis 2021

Tamam . Yukardaki koyu yazılan değişiklikleri yap.

smile66 · 25 Nis 2021

İftar yaklaşıyor yarın denerim inşallah

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

smile66

İbrahim Görgülü

Suskun

smile66

Suskun

Suskun

smile66

Ekli dosyalar

Suskun

smile66

Suskun

Ekli dosyalar

smile66

Suskun

smile66

Özcan ÖZBEK

Ekli dosyalar

smile66

Suskun

Ekli dosyalar

smile66

Suskun

smile66

Suskun

Ekli dosyalar

smile66

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

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