Dtpicker Sorunu.

emreeken · 19 Mart 2024

Çok değerli üstadlarım.

Elimde bir tane tabildot işlerini yaptığımız bir excel vba var.

Fakat bu excelde dtpicker kullanıldığı için 64 bit excel de açamıyorum.

Bilgisayarda yetki kısıtlaması olduğu için farklı şeylerde yükleyemiyorum. ( Mscomct2 gibi )

Dtpickerları iptal edip, yeni bir tarih seçici yapabilir miyiz ? Teşekkürler.

Yardımcı olabilecek arkadaşlara excel dosyasını gönderebilirim.

Hayırlı Ramazanlar Dilerim.

AdemCan · 19 Mart 2024

Merhaba, forumda örnek dosyalar bulunmakta.

Arama sonuçları.

Sorgu için arama sonuçları: takvim

excel.web.tr

Örnek bir konu

Excel Takvimden Seçerek Tarih Ekleme - Eklentisi

Hazırladığım excel eklentisi ile tarih biçimli hücrelerde çift tıklama ile takvimden tarih seçilebilir. Tarih biçimi bölgesel ayarlardaki tarihe göre biçimlenecektir. Ücretsiz İndir butonu ile indirebilirsiniz. Excel de makroların etkinleştirilmiş olması gerekiyor. Kurulum için...

excel.web.tr

emreeken · 19 Mart 2024

AdemCan' Alıntı:
Merhaba, forumda örnek dosyalar bulunmakta.

Arama sonuçları.

Sorgu için arama sonuçları: takvim

excel.web.tr

Örnek bir konu

Excel Takvimden Seçerek Tarih Ekleme - Eklentisi

Hazırladığım excel eklentisi ile tarih biçimli hücrelerde çift tıklama ile takvimden tarih seçilebilir. Tarih biçimi bölgesel ayarlardaki tarihe göre biçimlenecektir. Ücretsiz İndir butonu ile indirebilirsiniz. Excel de makroların etkinleştirilmiş olması gerekiyor. Kurulum için...

excel.web.tr

Adem hocam teşekkür ederim.

Fakat Excel VBA'daki Dtpickerlerin yerine bunu nasıl entegre edeceğiz ? VBA konusunda acemiyim.

AdemCan · 19 Mart 2024

Örnek dosya paylaşır mısınız?

** Google Drive, OneDrive ya da dosya paylaşım sitelerine yükleyip bağlantı adresi olarak paylaşabilirsiniz.

emreeken · 19 Mart 2024

Таблица из Облака Mail.ru

Посмотрите и скачайте документ

cloud.mail.ru

Yükledim Hocam Buyrun

emreeken · 19 Mart 2024

AdemCan' Alıntı:
Örnek dosya paylaşır mısınız?

** Google Drive, OneDrive ya da dosya paylaşım sitelerine yükleyip bağlantı adresi olarak paylaşabilirsiniz.

Buyrun hocam

Таблица из Облака Mail.ru

Посмотрите и скачайте документ

cloud.mail.ru

emreeken · 20 Mart 2024

güncel.

Bilgemen · 20 Mart 2024

aekteki dosyayı inceleyininiz. kodlara basit ve anlaşılır.
MOD_CALENDAR modülünü ve cCalendar clas modülü kendi çalışma kitabınaekleyiniz. takvim user formundaki kodlara göre kendi kodlarınızı uyarlayınız.

emreeken · 20 Mart 2024

Bilgemen' Alıntı:
aekteki dosyayı inceleyininiz. kodlara basit ve anlaşılır.
MOD_CALENDAR modülünü ve cCalendar clas modülü kendi çalışma kitabınaekleyiniz. takvim user formundaki kodlara göre kendi kodlarınızı uyarlayınız.

Teşekkür ederim, harici link paylaşabilir misiniz ?

Bilgemen · 20 Mart 2024

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

emreeken · 20 Mart 2024

Bilgemen' Alıntı:
Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

VBA'da biraz zayıfım uyarlayamadım. Yardımcı olabilir misiniz uyarlama konusunda ?

Bilgemen · 20 Mart 2024

Yardımcı olurum olmasına fakat projemizde çok fazla user form var. Ben açtığım zaman tarih yazan yerler boş geliyor herhangi bir textbox göremedim. Tarih eklenecek yerlere textbox ekleyip textboxların rengini mavi yapın belli olmaması için . bakayım

emreeken · 20 Mart 2024

Bilgemen' Alıntı:
Yardımcı olurum olmasına fakat projemizde çok fazla user form var. Ben açtığım zaman tarih yazan yerler boş geliyor herhangi bir textbox göremedim. Tarih eklenecek yerlere textbox ekleyip textboxların rengini mavi yapın belli olmaması için . bakayım

Çok teşekkür ederim.

Dediğiniz kısımları bende göremiyorum. Tarih yerleri bende de boş görünüyor. Excel 2003 32 bitte yazılmış, Xp bilgisayarda açtığımızda tarih yerleri gözüküyor fakat xp bilgisayarda da işlem yapamıyorum çok kötü.

AdemCan · 20 Mart 2024

Merhaba, Sayın Bilgemen'in paylaşmış olduğu çalışmayı dosyanıza ekledim ancak sadece userform1 için ve sadece tarih seçme işlemi yapılıyor.
Tarih seçtikten sonra işlem yapılması için DTPicker'lara da yazdığınız kodları düzenlemeniz gerekir.

Bence, bilgisayar kısıtlaması için ilgili birim/birimler ile görüşüp düzenlemelerini sağlayabilirseniz 32 bit Office yükleyip DTPicker çalışmasını sağlamak, userformlardaki kodları düzenlemekten daha kolay olur.

Dosya bağlantı adresi

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

emreeken · 20 Mart 2024

AdemCan' Alıntı:
Merhaba, Sayın Bilgemen'in paylaşmış olduğu çalışmayı dosyanıza ekledim ancak sadece userform1 için ve sadece tarih seçme işlemi yapılıyor.
Tarih seçtikten sonra işlem yapılması için DTPicker'lara da yazdığınız kodları düzenlemeniz gerekir.

Bence, bilgisayar kısıtlaması için ilgili birim/birimler ile görüşüp düzenlemelerini sağlayabilirseniz 32 bit Office yükleyip DTPicker çalışmasını sağlamak, userformlardaki kodları düzenlemekten daha kolay olur.

Dosya bağlantı adresi

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

Adem hocam elinize kolunuza sağlık.

Hocam Vba merakım var userform1 deki kodları da kendim düzenlemek istiyorum. Bu konuda nasıl yapabileceğime dair örnek verebilir misiniz ? Dtpicker yazan yerlere ne yazmam gerek gibi ?

AdemCan · 21 Mart 2024

Merhaba,
Private Sub DTPicker1_Change() ve diğerleri için kodları textboxlara taşıyıp, hangi DTPicker için işlem yapmanız gerekiyorsa Textbox ismi ile değiştirmeniz gerekir.

emreeken · 21 Mart 2024

AdemCan' Alıntı:
Merhaba,
Private Sub DTPicker1_Change() ve diğerleri için kodları textboxlara taşıyıp, hangi DTPicker için işlem yapmanız gerekiyorsa Textbox ismi ile değiştirmeniz gerekir.

Sağolun hocam ama pek anlayamadım. Sanırım yapamayacağım. Yine de sağolun hocam elinize emeğinize sağlık.

AdemCan · 21 Mart 2024

Örnek olarak, ürün çıkış tarihi için DTPicker3_Change kodlarını kullanıyorsunuz.
Private Sub DTPicker3_Change() ve End Sub arasında kalan kodları kopyalayıp TextBox19_Enter() kodlarına ekleyin, DTPicker3 yazan kısımları TextBox19 olarak değiştirin. (Değiştirilmiş halini de ekledim.)

Bu şekilde diğer DTPicker kodları için de değişiklik yapabilirsiniz.
Not: Bu işlemler öncesi dosyanın yedeğini almanızı tavsiye ederim.

Kod:

Private Sub DTPicker3_Change()
Set AYL = Sheets("Aylık Yemek Listesi")
Set ANM = Sheets("Ana_Menü")

say = WorksheetFunction.CountIf(AYL.[D:D], DTPicker3)
If say > 0 Then
    sat = WorksheetFunction.Match(CDbl(DTPicker3), AYL.[D:D], 0)
        For a = 1 To 6
            Controls("gçeşit" & a) = AYL.Cells(sat, a + 4) 'iLK ÜÇ SUTÜNDAN SONRASINI OKUR
        Next
    Else
        For a = 1 To 6 'COMBO YADA TEXTBOX SAYISIDIR
            Controls("gçeşit" & a) = ""
        Next
End If
DTPicker5 = DTPicker3
ANM.[AM63] = DTPicker3.Value
yemekmaliyetilbl = ANM.[AM64].Value
yemekmaliyetilbl = Format(Replace(yemekmaliyetilbl, ".", ","), "#,##0.00")

Set ANM = Nothing
Set AYL = Nothing
End Sub

Kod:

Private Sub TextBox19_Enter()
' ** DTPicker3 yerine eklendi
If TextBox19 <> "" Then Exit Sub

Dim lngLeft As Long, lngTop As Long
lngLeft = Me.Left + g_cnsAddLeft
    lngTop = Me.Top + g_cnsAddTop
    Call ShowCalendarFromTextBox(TextBox19, "", "", lngLeft, lngTop)
    

Set AYL = Sheets("Aylık Yemek Listesi")
Set ANM = Sheets("Ana_Menü")

say = WorksheetFunction.CountIf(AYL.[D:D], TextBox19)
If say > 0 Then
    sat = WorksheetFunction.Match(CDbl(TextBox19), AYL.[D:D], 0)
        For a = 1 To 6
            Controls("gçeşit" & a) = AYL.Cells(sat, a + 4) 'iLK ÜÇ SUTÜNDAN SONRASINI OKUR
        Next
    Else
        For a = 1 To 6 'COMBO YADA TEXTBOX SAYISIDIR
            Controls("gçeşit" & a) = ""
        Next
End If

TextBox22 = TextBox19
ANM.[AM63] = TextBox19.Value
yemekmaliyetilbl = ANM.[AM64].Value
yemekmaliyetilbl = Format(Replace(yemekmaliyetilbl, ".", ","), "#,##0.00")

Set ANM = Nothing
Set AYL = Nothing
End Sub

emreeken · 22 Mart 2024

AdemCan' Alıntı:

Örnek olarak, ürün çıkış tarihi için DTPicker3_Change kodlarını kullanıyorsunuz.
Private Sub DTPicker3_Change() ve End Sub arasında kalan kodları kopyalayıp TextBox19_Enter() kodlarına ekleyin, DTPicker3 yazan kısımları TextBox19 olarak değiştirin. (Değiştirilmiş halini de ekledim.)

Bu şekilde diğer DTPicker kodları için de değişiklik yapabilirsiniz.
Not: Bu işlemler öncesi dosyanın yedeğini almanızı tavsiye ederim.

Kod:

Private Sub DTPicker3_Change()
Set AYL = Sheets("Aylık Yemek Listesi")
Set ANM = Sheets("Ana_Menü")

say = WorksheetFunction.CountIf(AYL.[D:D], DTPicker3)
If say > 0 Then
    sat = WorksheetFunction.Match(CDbl(DTPicker3), AYL.[D:D], 0)
        For a = 1 To 6
            Controls("gçeşit" & a) = AYL.Cells(sat, a + 4) 'iLK ÜÇ SUTÜNDAN SONRASINI OKUR
        Next
    Else
        For a = 1 To 6 'COMBO YADA TEXTBOX SAYISIDIR
            Controls("gçeşit" & a) = ""
        Next
End If
DTPicker5 = DTPicker3
ANM.[AM63] = DTPicker3.Value
yemekmaliyetilbl = ANM.[AM64].Value
yemekmaliyetilbl = Format(Replace(yemekmaliyetilbl, ".", ","), "#,##0.00")

Set ANM = Nothing
Set AYL = Nothing
End Sub

Kod:

Private Sub TextBox19_Enter()
' ** DTPicker3 yerine eklendi
If TextBox19 <> "" Then Exit Sub

Dim lngLeft As Long, lngTop As Long
lngLeft = Me.Left + g_cnsAddLeft
    lngTop = Me.Top + g_cnsAddTop
    Call ShowCalendarFromTextBox(TextBox19, "", "", lngLeft, lngTop)
   

Set AYL = Sheets("Aylık Yemek Listesi")
Set ANM = Sheets("Ana_Menü")

say = WorksheetFunction.CountIf(AYL.[D:D], TextBox19)
If say > 0 Then
    sat = WorksheetFunction.Match(CDbl(TextBox19), AYL.[D:D], 0)
        For a = 1 To 6
            Controls("gçeşit" & a) = AYL.Cells(sat, a + 4) 'iLK ÜÇ SUTÜNDAN SONRASINI OKUR
        Next
    Else
        For a = 1 To 6 'COMBO YADA TEXTBOX SAYISIDIR
            Controls("gçeşit" & a) = ""
        Next
End If

TextBox22 = TextBox19
ANM.[AM63] = TextBox19.Value
yemekmaliyetilbl = ANM.[AM64].Value
yemekmaliyetilbl = Format(Replace(yemekmaliyetilbl, ".", ","), "#,##0.00")

Set ANM = Nothing
Set AYL = Nothing
End Sub

Ekli dosyayı görüntüle 250665

Çok teşekkür ediyorum, dediğiniz gibi güncelleyip tekrar ilgili dosyayı yükleyeceğim.

Kontrol amaçlı bakabilirseniz çok sevinirim.

emreeken · 22 Mart 2024

AdemCan' Alıntı:

Örnek olarak, ürün çıkış tarihi için DTPicker3_Change kodlarını kullanıyorsunuz.
Private Sub DTPicker3_Change() ve End Sub arasında kalan kodları kopyalayıp TextBox19_Enter() kodlarına ekleyin, DTPicker3 yazan kısımları TextBox19 olarak değiştirin. (Değiştirilmiş halini de ekledim.)

Bu şekilde diğer DTPicker kodları için de değişiklik yapabilirsiniz.
Not: Bu işlemler öncesi dosyanın yedeğini almanızı tavsiye ederim.

Kod:

Private Sub DTPicker3_Change()
Set AYL = Sheets("Aylık Yemek Listesi")
Set ANM = Sheets("Ana_Menü")

say = WorksheetFunction.CountIf(AYL.[D:D], DTPicker3)
If say > 0 Then
    sat = WorksheetFunction.Match(CDbl(DTPicker3), AYL.[D:D], 0)
        For a = 1 To 6
            Controls("gçeşit" & a) = AYL.Cells(sat, a + 4) 'iLK ÜÇ SUTÜNDAN SONRASINI OKUR
        Next
    Else
        For a = 1 To 6 'COMBO YADA TEXTBOX SAYISIDIR
            Controls("gçeşit" & a) = ""
        Next
End If
DTPicker5 = DTPicker3
ANM.[AM63] = DTPicker3.Value
yemekmaliyetilbl = ANM.[AM64].Value
yemekmaliyetilbl = Format(Replace(yemekmaliyetilbl, ".", ","), "#,##0.00")

Set ANM = Nothing
Set AYL = Nothing
End Sub

Kod:

Private Sub TextBox19_Enter()
' ** DTPicker3 yerine eklendi
If TextBox19 <> "" Then Exit Sub

Dim lngLeft As Long, lngTop As Long
lngLeft = Me.Left + g_cnsAddLeft
    lngTop = Me.Top + g_cnsAddTop
    Call ShowCalendarFromTextBox(TextBox19, "", "", lngLeft, lngTop)
 

Set AYL = Sheets("Aylık Yemek Listesi")
Set ANM = Sheets("Ana_Menü")

say = WorksheetFunction.CountIf(AYL.[D:D], TextBox19)
If say > 0 Then
    sat = WorksheetFunction.Match(CDbl(TextBox19), AYL.[D:D], 0)
        For a = 1 To 6
            Controls("gçeşit" & a) = AYL.Cells(sat, a + 4) 'iLK ÜÇ SUTÜNDAN SONRASINI OKUR
        Next
    Else
        For a = 1 To 6 'COMBO YADA TEXTBOX SAYISIDIR
            Controls("gçeşit" & a) = ""
        Next
End If

TextBox22 = TextBox19
ANM.[AM63] = TextBox19.Value
yemekmaliyetilbl = ANM.[AM64].Value
yemekmaliyetilbl = Format(Replace(yemekmaliyetilbl, ".", ","), "#,##0.00")

Set ANM = Nothing
Set AYL = Nothing
End Sub

Ekli dosyayı görüntüle 250665

Merhaba Hocam dedikleriniz yaptım. Kodları düzenledim, fakat bu hatayı alıyorum bu seferde.

ProgressBar1.Visible = False

İlgili dosyayı aşağıdaki linke yükledim. Teşekkürler.

Таблица из Облака Mail.ru

Посмотрите и скачайте документ

cloud.mail.ru

Dtpicker Sorunu.

emreeken

AdemCan

Altın Üye

Sorgu için arama sonuçları: takvim

Excel Takvimden Seçerek Tarih Ekleme - Eklentisi

emreeken

Sorgu için arama sonuçları: takvim

Excel Takvimden Seçerek Tarih Ekleme - Eklentisi

AdemCan

Altın Üye

emreeken

Таблица из Облака Mail.ru

emreeken

Таблица из Облака Mail.ru

emreeken

Bilgemen

Ekli dosyalar

emreeken

Bilgemen

Lifebox Transfer: Upload File! Send and Share Large Files

emreeken

Lifebox Transfer: Upload File! Send and Share Large Files

Bilgemen

emreeken

AdemCan

Altın Üye

Lifebox Transfer: Upload File! Send and Share Large Files

emreeken

Lifebox Transfer: Upload File! Send and Share Large Files

AdemCan

Altın Üye

emreeken

AdemCan

Altın Üye

emreeken

emreeken

Таблица из Облака Mail.ru