• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Ersin Tunca

Ersin Tunca

Yeni Üye
Kullanıcı Bilgileri
Katılım
4 Ağu 2021
Mesajlar
390
Aldığı beğeni
76
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
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.
 
Çözüm
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 ;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
Sy. Alparlan hocam ;
Dosyanın son hali ektedir. Düğmeler MAKRO sayfasında bulunmaktadır.
 

Ekli dosyalar

  • AĞUSTOS 2021 - Kopya.xlsm
    1.1 MB · Gösterim: 7
Olumlu oy 0 Negatif oyla
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?
 
Olumlu oy 0 Negatif oyla
Sy. Alparslan Bey ;
buyurun

NUMARADÜĞME ADIMakro adı
1​
Hesap Fişi DüşeyaraSub Düşeyara()
2​
iş düşeyaraSub İŞ()
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​
komisyonSub komisyon()
7​
ikramSub ikram()
8​
internet komisyonSub İNTERNET_KOM()
9​
merkez kesintisiSub merkez_kesintisi()
10​
dönüş ödemesiSub dönüş_ödeme()
11​
web bilet satışSub web_visa()
12​
çağrı merkezi bilet satışSub çağrı_visa()
13​
Ors Kullanıcı ÜcretiSub yazılım_ücreti()
14​
Obilet Bilet SatışSub obilet()
15​
Katip Bilet SatışıSub KATİP_BİLET()
16​
Otobüs ÖdemesiSub OTOBÜS_ÖDEME()
17​
ors virman yapanSub ORS_V_YAPAN()
18​
ors virman alanSub ORS_V_ALAN()
19​
maneul virman yapanSub manuel_virman_yapan()
20​
Manuel Virman AlanSub manuel_virman_Alan()
21​
Kontur CariSub KONTUR_CARİ()
22​
Kontur AlacakSub KONTUR_ALACAK()
23​
Kontur SanalSub KONTUR_SANAL()
 

Ekli dosyalar

  • AĞUSTOS 2021 - Kopya.xlsm
    1.1 MB · Gösterim: 5
Olumlu oy 0 Negatif oyla
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 ;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
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
 
Olumlu oy 0 Negatif oyla
Sayfaları kendinize göre ayarlayın
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst