Skip to main content

AccessTr.neT


Vba Da Userform A Girilen Tarihe Göre Aylara Veri Gönderme

Vba Da Userform A Girilen Tarihe Göre Aylara Veri Gönderme

Çözüldü #1
Merhabalar. Excel ve Vba proglama konusuna çok ilgim var. Kaza olay formumuza Vba ile userform oluşturdum. Bu formdan çıktı almak için Vba kod kullandım. Bunlar güzel çalışıyor. Yalnız bu formdaki veriler bize aylık olarak istatistik oluşturmak içinde lazım. 
1- Userformda texbox 13 de ki tarihteki göre hangi aya denk geliyorsa o aya alt alta eklensin istiyorum. Hangi aya denk geliyorsa oraya eklensin istiyorum. Ya da Userform ile bilgileri kaydedip çıktıktan sonra başka bir commandbox bastığımda resimdeki gibi D7 hücresindeki tarihin ayına göre o aya istatistik için veri göndermek istiyorum. Bununla ilgili çok araştırma yaptım işin içinden çıkamadım. 
2- Ayrıca bu bilgileri İnternet Explorer ile de göndermek istiyorum. Burada da internet explorer a geçiyorum ancak kullanıcı adı ve şifre kısımlarını almıyor. Module bir yanlışlık mı yaptım acaba.
Örnek Excel Vba dosyasını yükleyemedim.
Ekteki resimleri inceleyip yardımcı olurmusunuz?
Cevapla
#2
excel dosyanızı winrar ile sıkıştırıp yüklemeyi denediniz mi? doğrudan Access yada Excel dosyaları yüklenemiyor siteye
ayrıca resim de eklenmemiş galiba
Cevapla
#3
(22/12/2020, 12:29)berduş yazdı: excel dosyanızı winrar ile sıkıştırıp yüklemeyi denediniz mi? doğrudan Access yada Excel dosyaları yüklenemiyor siteye
ayrıca resim de eklenmemiş galiba
Resim yükledim ama sağ tarafta görünüyor. Şimdi Örnek dosyayı WinRar ile ekliyorum.

Örneğim ektedir.
.rar EK-1 Kaza Bildirim Formu.rar (Dosya Boyutu: 126,69 KB | İndirme Sayısı: 10)
Son Düzenleme: 22/12/2020, 12:39, Düzenleyen: Vahap5244.
Cevapla
#4
buton1 tıklanma olayına aşağıdaki kodu ekleyip dener misiniz? ben sadece cinsiyete kadar aldım gerisini sizin eklemeniz gerekmektedir
dilerim işinize yarar
Dim SyfAdi As String
SyfAdi = MonthName(Month(Me.TextBox13))

With Sheets(SyfAdi)
SonStr = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Activate
.Range("A" & SonStr).Value = SonStr - 2
.Range("B" & SonStr).Value = TextBox1.Value
.Range("c" & SonStr).Value = TextBox2.Value
.Range("d" & SonStr).Value = TextBox3.Value
.Range("E" & SonStr).Value = TextBox4.Value
.Range("f" & SonStr).Value = TextBox5.Value

End With
Cevapla
#5
Sayın uzmanım dediğinizi yaptım ama kod çalışmadı. Buton 1 deki eski kodları silecekmiyim?
Cevapla
#6
Hayır sizin kodlarin hemen altina eklemeniz yeterli.

Siz kodu tam olarak hangi formdaki hangi butona yazdiniz
(22/12/2020, 17:00)Vahap5244 yazdı: Kaydet basınca kaydedip direk ay sayfasına gitsede önemli değil.
çalışıp çalışmadığını görmek için koda .activate eklemiştim benim eklediğim .activate kaldırırsanız ay sayfasına gitmez
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task