Skip to main content

#EvdeKal


Excel'e Access'ten Şablona Veri Alma

Excel'e Access'ten Şablona Veri Alma

Çözüldü #1
Merhaba arkadaşlar;
Sorum Şöyle Excel deki ana isimli formda page4 teki tarih bazında yere göre teslim senedi (Frame7) deki combobox5 ilçe, combobox6 yer adını ve textbox16 ile textbox17 arasında kalan tarihlerdeki çıkışları teslim_senedi sayfasındaki şablona verildiği yere (C5 hücresine) combobox5 ve combobox6 daki veri birleşik gelecek Access dosyasında, giriscikis tablosundan, tarih aralığı, yer adı olanlar ve durum çıkış olan mlz_ad ( malzeme adları)  tek olarak exceldeki teslim_senedi sayfasında B8 hücresinden başlayarak aşağı doğru benzersiz bir şekilde listelemesi gerekli ayrıca mlz_miktar kısmının toplamı miktarı kısmına malzemenin birimi kısmına ve Access te bulunan kisi sütununda yazan isim de Excel in f22 hücresine gelmesi gerekli. Biraz karışık gibi gözüküyor ama işin özü şöyle; Access ten sorgudaki şartlara uyan verileri Excel deki teslim senedi şablonuna gerekli bilgilerin getirilmesi bunu farklı bir Excel açarak şablon ile aynı formatta da olabilir.
Şimdiden yardımlarınız için teşekkür ederim.
.rar depo son.rar (Dosya Boyutu: 249,76 KB | İndirme Sayısı: 4)
Cevapla
#2
lütfen konularınızı uygun yere açmaya dikkat ediniz. konunuz excelle ilgili bir soru olduğundan Excel soruları kısmına taşınmıştır
Cevapla
#3
Teşekkürler.
Cevapla
#4
Arkadaşlar konu günceldir
Cevapla
#5
CommandButton21 aşağıdaki kodu ekler misiniz?
şimdilik 2 sorun var
şablonunuz sabitmi emin olamadığımdan deneme amaçlı olarak yazdım
1.si eğer kayıt sayısı 12 dan büyükse ne olacak siz 12 ile sınırlamışsınız ama ya fazlaysa neden 12?
2.si de şimdilik kayıt yapacağı alanın üstüne yazıyor ama önceden kalanları silmiyor
yarın gerisiyle de ilgilenmeye çalışacağım

Visual Basic Code
Dim baglan As New Connection
Dim rs As New Recordset
Dim Teslim As Worksheet

baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\veri.accdb;"

 sgl1 = " SELECT giriscikis.mlz_ad,'','','', Sum(giriscikis.mlz_miktar) AS TplMiktar, giriscikis.birim " & _
        " FROM giriscikis " & _
        " WHERE (((giriscikis.tarih) Between " & CLng(CDate(Me.TextBox16.Value)) & " And " & CLng(CDate(Me.TextBox17.Value)) & _
        " ) AND ((giriscikis.ilce)='" & Me.ComboBox5 & "') AND ((giriscikis.yer)='" & Me.ComboBox6 & "'))" & _
        " GROUP BY giriscikis.mlz_ad, giriscikis.birim"

rs.Open sgl1, baglan, adOpenKeyset, adLockPessimistic

Set Teslim = Worksheets("teslim_senedi")
Teslim.Range("C5") = CStr(Me.ComboBox5.Value) & " " & CStr(ComboBox6.Value)
Teslim.Range("B8").CopyFromRecordset rs

rs.Close
baglan.Close

Cevapla
#6
şalonu sorma sebebim eksik satır sayısını hesaplamak ve alanı temizlemek için son satırı bulmaya çalışmam
son 4 satır sabit mi hep aynı şekilde mi kalacak
aslında kast ettiğim şu bahsettiğiniz işlemden sonra diyelim ki 100 kalem malzeme eklememiz gerekti
a8 den başlayarak A108'e kadar veri ekledik
A112 herzaman İMZASI olacak ve A113 boş mu olacak
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task