Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 06-11-2017, 00:38   #1
hgenc545
 
Giriş: 17/12/2012
Şehir: trb
Mesaj: 10
Excel Vers. ve Dili:
2003 türkçe/ingilizce
Varsayılan Şartı Kaydeme makrosu

Slmlar,

excel dosyamı koşula göre kaydetmesini istiyorum, yaptım Visual Basic ekranında run(F5) yapınca çalışıyor ancak çalışma kitabından save yada ctr+s yapınca normal kaydediyor. Makro işlemiyo. Buton kurmadan save deyince nasıl kaydeder. Destek olursanız sevinirim. macro modülüm aşağıda.

Private Sub Worksheet_Change()
If Range("A1").Value = "1" Then
ActiveWorkbook.Save
MsgBox "Shıft kaydedildi"
Else
MsgBox "Kaydetmek İçin Tüm Kişileri Girin!"
End If
End Sub
hgenc545 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-11-2017, 09:01   #2
Excelmy
Destek Ekibi
 
Excelmy kullanıcısının avatarı
 
Giriş: 10/04/2008
Şehir: Antalya
Mesaj: 648
Excel Vers. ve Dili:
2010 - TÜRKÇE
Varsayılan

Merhaba

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Application.OnKey "^{s}", "macronuzunadınıyazın"
__________________
Kuman
Excelmy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-11-2017, 00:58   #3
hgenc545
 
Giriş: 17/12/2012
Şehir: trb
Mesaj: 10
Excel Vers. ve Dili:
2003 türkçe/ingilizce
Varsayılan

slm Excelmy,
denedim olmadı,yada beceremedim. tam olarak nereye yazacağım.

Yeni bir yordammı açacağım...

private sub açacakmıyım..

açıklamalı aktarırsanız sevinirim.
hgenc545 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-11-2017, 06:48   #4
Excelmy
Destek Ekibi
 
Excelmy kullanıcısının avatarı
 
Giriş: 10/04/2008
Şehir: Antalya
Mesaj: 648
Excel Vers. ve Dili:
2010 - TÜRKÇE
Varsayılan

Çalışma Kitabınızın Workbook_Open olayına, kendi kodlarınızıda modüle ekleyin.
__________________
Kuman
Excelmy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 00:15   #5
hgenc545
 
Giriş: 17/12/2012
Şehir: trb
Mesaj: 10
Excel Vers. ve Dili:
2003 türkçe/ingilizce
Varsayılan

Oldu yaptım, çok teşekkürler. Bu kez Application.OnKey "^{s}", "macronuzunadınıyazın" kod ile sadece ctrl+s yapınca makro çalışıyor, yani şartlı kaydediyor, ama save ikonu ile mause ile kaydedince kaydediyor. Bunun içinde bir kod ekleyebilirmiyiz
hgenc545 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 01:59   #6
hgenc545
 
Giriş: 17/12/2012
Şehir: trb
Mesaj: 10
Excel Vers. ve Dili:
2003 türkçe/ingilizce
Varsayılan

excelmy tekrar slm,
siteyi dolaşırken bir şey buldum. Aşağıdaki kod.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
msgbox "hmmmm....."
Cancel = True
End Sub

Aslında bu kod daha çok işime yarar. Ama şöyle yapabilir miyiz.

A1 hücresi 1 İse sayfa kapatılabilsin, Değilse kapatılamasın yukarıdaki kod devreye girsin, ben mesajı değiştiririm...

Aslında amacım şu, dosyaya girdi yapan bazı görevliler eksik bırakabiliyor. Ben kimse eksik girdi yapmasın istiyorum,

dolayısıyla kimse eksik bırakamıyacak, herkes tamamlamak zorunda kalacak. Bu şekilde çözerim diyorum.

Bunu yapabilirseniz süper olur
hgenc545 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 02:24   #7
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,520
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Merhaba, aşağıdaki kodu sayfanın kod bölümüne yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then
ActiveWorkbook.Save
Application.Quit
Else
MsgBox "hmmmm", vbInformation, "UYARI"
End If
End Sub

Aşağıdaki koduda BuÇalışmaKitabı (ThisWorkbook) kod bölümüne yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Sayfa1").[A1] > 1 Then
MsgBox "hmmmm", vbInformation, "UYARI"
Cancel = True
End If
End Sub
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 09-11-2017 " tarihinde saat 03:05 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 21:22   #8
hgenc545
 
Giriş: 17/12/2012
Şehir: trb
Mesaj: 10
Excel Vers. ve Dili:
2003 türkçe/ingilizce
Varsayılan

Harikasınız ASLAN7410 valla. Elinize ağlık. Kodları işliyor.. Ama son olarak şöyle bir şey oldu, bunu da düzeltebilirseniz sevinirim.

Hani A1 hücresi 1 olmadığında kapanmıyor ve uyarı veriyor ya, işte o uyarı çalışma sayfasında ne yaparsak yapalım A1 Hücresi 1 olana kadar her işlemde çıkıyor. Bu da çalışmayı aksatan ve sinir bozucu bir durum. Yani diyelim çalışma kitabı ile 5 dakikalık çalışma sonucunda A1 1 olacak, çalışma boyunca A1 deki şartın 1 olması mümkün değil, dolayısı ile hücrelere her veri girildiğinde, uyarı geliyor. Eğer 50 hücreye veri gireceksek 50inci veride A1 1 olacak, 50 ye kadar her işlemde uyarı vermesi sıkıntı... Burdaki 50 ve 5dk temsilidir, çalışmanın sonunda A1 şartı doğru hale gelecek demek istedim.


Bunu da çözerseniz sevinirim

Bu mesaj en son " 10-11-2017 " tarihinde saat 01:41 itibariyle hgenc545 tarafından düzenlenmiştir....
hgenc545 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 01:43   #9
hgenc545
 
Giriş: 17/12/2012
Şehir: trb
Mesaj: 10
Excel Vers. ve Dili:
2003 türkçe/ingilizce
Varsayılan

Ve ayrıca A1 istenilen şarta ulaştığında yani 1 olduğunda sayfa kendiliğinden kapanıyor. Buda olmasın, eğer şartı doğrulandığında x ikonu aktif olsun kullanıcı istediğinde kapatsın..
hgenc545 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 17:52   #10
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,520
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın hgenc545, bu şekilde doğru sonuçlar alamazsınız.

Örnek dosya ile sorunuzu desteklerseniz, size yardımcı olacak arkadaşlar çıkacaktır.
Dosyanızı dosya yükleme sitelerine yükleyip, linkini buraya ekleyebilirsiziniz.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 12:03


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden