private sub ile başlayan kodlar - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: private sub ile başlayan kodlar (/konu-private-sub-ile-baslayan-kodlar.html) Sayfalar:
1
2
|
private sub ile başlayan kodlar - sozcan3403 - 19/08/2015 merhabalar, SQL den alınan verileri günlük raporlamam gerekiyor. ve yapmam gereken yenile-filtrele-gönder bunlar için form sitelerinden yardım alarak kodlar düzenledim. yenile ve filtrele için "Sub auto_open()" kodu işe yarıyor. ancak "Private Sub CommandButton1_Click()" ile başlayan kodlar için aynı şeyi yapamadım. konu ile ilgili yardımınızı rica ediyorum. teşekkürler. Cvp: private sub ile başlayan kodlar - C*e*l*o*y*c*e - 19/08/2015 Merhaba istediğin anlaşılmıyor,daha çok açıklayıcı olur musun? Cvp: private sub ile başlayan kodlar - sozcan3403 - 19/08/2015 (19/08/2015, 12:28)C*e*l*o*y*c*e yazdı: Merhaba Merhaba; aşağıdaki kodların belli bir zamanda otomatik çalışmasını istiyorum. ama; "sub auto_open()" kodu ile beceremedim. kodlar aşağıdaki gibidir. Private Sub CommandButton1_Click() Dim Sayfa As Worksheet Dim Alan As Range Dim daralan As Range If Cells(2, 2) = "" Then GoTo HATA On Error GoTo HATA With Application .ScreenUpdating = False .EnableEvents = False End With saydir = WorksheetFunction.CountIf(Range("D"), "<>") + 1 DinamikAlan = "D2:" & "j" & saydir Set Alan = Worksheets("Sayfa1").Range(DinamikAlan) Set Sayfa = ActiveSheet With Alan .Parent.Select Set daralan = ActiveCell .Select ActiveWorkbook.EnvelopeVisible = True With .Parent.MailEnvelope .Introduction = "bukoli nokta sipariş raporu - kerem" With .Item .To = Cells(2, 2) .CC = Cells(3, 2) .Subject = Cells(1, 2) .bcc = "" .Send End With End With daralan.Select End With Sayfa.Select HATA: With Application .ScreenUpdating = True .EnableEvents = True End With End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub teşekkürler. Cvp: private sub ile başlayan kodlar - atoz112 - 19/08/2015 sayın sozcan340, Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte, lütfen örnek uygulamanızı da eklemeyi ihmal etmeyiniz ki;katılımcılara tarafından sunulabilecek bilgi ya da örnek çalışmalarının daha verimli sonuçlar sağlaması ile çözüme yönelik paylaşımlarda bulunabilmelerine imkan sağlamış olursunuz. aksi takdirde, anlatımsal bilgi paylaşımları sonucu,konunuzda mesaj yoğunluğunun artmasından başka işe yaramayabilir,sizin konunuzdaki gibi kod paylaşımlarında bulunma gereksinimi söz konusu olduğu durumlarda.bilginize. iyi çalışmalar,saygılar. Cvp: private sub ile başlayan kodlar - sozcan3403 - 19/08/2015 bunu dikkate alacağım örnek dosyayı ekliyorum. teşekkürler. Cvp: private sub ile başlayan kodlar - atoz112 - 19/08/2015 sayın sozcan340, eklediğinizi beyan ettiğiniz sadece ilgili kod ifadelerini içeren text dosyası. örnek Excel uygulamanızı eklemeniz temennisi ile.bilginize. iyi çalışmalar, saygılar. |