• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

butonlu makroyu butonsuz nasıl yapabiliriz...

Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
merhaba
excelde yazılan bi formülü, makro olarak kayıt ediıyoruz ve bu bi buton ile işlem yapıyor.buton ile değilde veri girişine gore çalışmasını sağlayabilirmıyız
2 sorum ise yine formulü makro olarak kayıt ettiğimizde kodlar modüle düşüyor. ben bunu modülde değilde hangi sayfada işlem göruyor ise kodu o sayfanın kod bölümünde olmasını ıstıyorum bununla ilgili ne gibi bi değişiklık yapılar.
 
Evet mümkündür

Örnek:
Function SWA_SAPMA_SONUCU(STD_Kontrol_Süresi As Double, Optional Gerçekleşen_Süre As Variant)

Dim hsp, tt, ty
If IsMissing(STD_Kontrol_Süresi) And IsMissing(Gerçekleşen_Süre) Then
SWA_SAPMA_SONUCU = 0
End If
If IsMissing(STD_Kontrol_Süresi) Then
SWA_SAPMA_SONUCU = 0
Else
hsp = STD_Kontrol_Süresi - Gerçekleşen_Süre
tt = (hsp / STD_Kontrol_Süresi) * 100
SWA_SAPMA_SONUCU = Format(tt, "% 0.0")
End If
End Function

Çalışma kitabı modül içine yazarzın yada xla olarak (eklenti olarak)ta kendi fonksiyonunu yazmış olursun,

Formüllerin içinde kullanıcı tanımlı formül olarak görünür.

sadece tek çalışma itabınada ait olabilir yada eklenti (xla)olarak global kullanıcı tanımlı formülün olur.
 
valla bu yazılanlardan bişey anlamadım,
aşağıda verdiğim kodu buton ile çalıştırabiliyorum bunu, butonsuz, ve GELENLER isimli(sayfa2) sayfasının kod bölümüne uyarlamak istıyorum.
bunu siz duzenleyebilirmısınız.
sonuç olumlu olur ise kullanamk ıstıyorum.

Sub metre()
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]="""","""",SUMIF(STOK!C[-1],RC[-2],STOK!C[2]))"
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D65536"), Type:=xlFillDefault
Range("D3:D65536").Select
End Sub
 
İstediğiniz buna benzer bir şey mi?
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not [a1] = "" Then
MsgBox "İşlem Gerçekleşti", vbInformation
End If
End Sub
 
merhaba seyit bey, kodlardan yok denecek kadar az anlıyorum.linkteki konuda bana ait ben bunu çözmeye çalışıyorum 2 gundur sağolsun arkadaşlar hep yardımcı oluyor ama... ya kodlarda sorun oluyor. yada istediğim gibi olmuyor.

konuyla sizde ilgilenebilirmısınız rica etsem.

http://www.excel.web.tr/f48/formulu-makro-koda-cevirmek-t112222.html
 
Geri
Üst