Çözüldü vba düğmeleri birleştirme

[Ersin Tunca]

Sy. Hocalarım ;
Şimdiye kadar yardımlarınız ile 27 adet kod yazıldı her hocama ayrı ayrı teşekkür ederim.
şuan bunları birleştirme işine geldi
1. hepsi aynı anda çalışmaması lazım kodlara Sub makro adı yazıyım ona göre sıra ile çalışmasını sağlamam lazım böyle bir şey yapılabilir mi ?

2. kontur Sayfasında bulunan =EĞER(A457="";"";"İŞLE") bu formülü Makro ile göre yapabilir miyiz.

 

[Alparslan]

Merhaba dosyanın son halini paylaşıp, kodların çalışma sırasını belirtir misiniz?

 

[Ersin Tunca]

Sy. Alparlan hocam ;
Dosyanın son hali ektedir. Düğmeler MAKRO sayfasında bulunmaktadır.

 

[Alparslan]

Yanlış anlamıyorsam,
Makro sayfasındaki düğmeleri bir düğmede toplayıp; tek tıklamayla kodları sıra ile çalıştırmak istiyorsunuz.
İsteğiniz bu şekilde ise, kodların çalışma sırasını da belirtir misiniz?

 

[Ersin Tunca]

Sy. Alparslan Bey ;
buyurun

NUMARA	DÜĞME ADI	Makro adı
1​	Hesap Fişi Düşeyara	Sub Düşeyara()
2​	iş düşeyara	Sub İŞ()
3​	otobüs kontur hesabı	Sub İŞLE_AKTAR()
4​	otobus fatura hesabı	otobüs_Fatura_Aktar()
5​	şube fatura hesabı	Sub şube_Fatura_Aktar()
6​	komisyon	Sub komisyon()
7​	ikram	Sub ikram()
8​	internet komisyon	Sub İNTERNET_KOM()
9​	merkez kesintisi	Sub merkez_kesintisi()
10​	dönüş ödemesi	Sub dönüş_ödeme()
11​	web bilet satış	Sub web_visa()
12​	çağrı merkezi bilet satış	Sub çağrı_visa()
13​	Ors Kullanıcı Ücreti	Sub yazılım_ücreti()
14​	Obilet Bilet Satış	Sub obilet()
15​	Katip Bilet Satışı	Sub KATİP_BİLET()
16​	Otobüs Ödemesi	Sub OTOBÜS_ÖDEME()
17​	ors virman yapan	Sub ORS_V_YAPAN()
18​	ors virman alan	Sub ORS_V_ALAN()
19​	maneul virman yapan	Sub manuel_virman_yapan()
20​	Manuel Virman Alan	Sub manuel_virman_Alan()
21​	Kontur Cari	Sub KONTUR_CARİ()
22​	Kontur Alacak	Sub KONTUR_ALACAK()
23​	Kontur Sanal	Sub KONTUR_SANAL()

 

[Ali ÖZ]

Merhaba,
Kodları ayrı prosedürler altında tutup bir ana prosedür oluşturup sıra ile çağırabilirsiniz.
Örneğin;

sub tumu()
call makro1
call makro2
call makro3
end sub

gibi...

=EĞER(A457="";"";"İŞLE") için makro ;
HTML:

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

 

[Alparslan]

Merhaba, işlerden dolayı cevap yazamamıştım. Şimdi telefondan yazıyorum ama Ali Bey cevabı yazmış teşekkür ederim.

 

[Ersin Tunca]

Sy. Ali Öz hocam , Sy. Alparslan hocam ;
ilginiz için çok teşekkür ederim. Hepsini çalıştırma makrosunu yaptım gayet güzel çalışıyor ama işle makrosunu istediğim sayfaya ayarlamadım bir de ona sütun aralığı belirleye bilir miyiz. A2:A500 gibi teşekkür ederim.

if range("a457").value = "" then

range("b457").value = "" ' formül hangi hücredeyse onu yazın

else

range("b457").value = "İŞLE" ' formül hangi hücredeyse onu yazın

end if

Bu çıkarma işlemini Sayfa2 için nasıl yapa bilirim yoksa yeni bir konumu açayım teşekkür ederim.
Sub çıkarma()
For n = 2 To 38
Range("K" & n) = Range("C" & n).Value - WorksheetFunction.Sum(Range(Cells(n, 4), Cells(n, 10)).Value)
Next n

 

[Suskun]

Sayfaları kendinize göre ayarlayın
HTML:

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

 

[Ersin Tunca]

Sy. Suskun Hocam ;
Teşekkür ederim.

Sayfaları kendinize göre ayarlayın
HTML:

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