Genel Excel Sorusu Sor

Excel'in ön yüzü ile ilgili sorularınızı buradan sorabilirsiniz.

Excel Formül Sorusu Sor

Excel formülleri ile ilgili sorularınızı buradan sorabilirsiniz.

Excel Makro Sorusu Sor

Excel makroları ile ilgili sorularınızı buradan sorabilirsiniz.
  • 1 Mayıs 2022 tarihinden önce sitemizde kayıtlı bir üyeliğiniz varsa, yeni sistemine giriş yapmak için PAROLAMI UNUTTUM kısmına tıklayıp, e-posta adresinize gelen bağlantıyı kullanarak yeni parola belirlemeniz gerekmektedir.

Çözüldü Kapalı Dosyadan Veri Çekme

  • Konuyu başlatan valentino06
  • Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
V

valentino06

VIP 4
Katılım
4 May 2018
Puan
614
Merhaba,
Arkadaşlar "21-22" Hafta Tablosundan Şirket bilgilerini "A" sütunu Rapor kitabında vardiya sayfasında "B" ye getirmek istiyorum. "C " sütunu Rapor kitabındaki "D"sütuna getirmek istiyorum kriter ise şirketlere göre "21-22" hafta "E" sütununda bulunan "1,2,"3" de personellerin vardiya durumlarını Rapor Kitabındaki vardiya sütunlarına getirmek istiyorum kısacası "E,F,G"sütunlarına getirmek istiyorum burdaki kriter ise personel adı ve soyadı olacak. son olarak rapor kitabındaki vardiya sayfasında bulunan "I,K"aralığında bulunan vardiya tarih aralığını "C"sütuna yazdırmak istiyorum. her vardiya değişimde aynı işlemleri yapacağım. alt alta yazmasını istiyorum. vardiya sayfası benim verilerimin toplanacağı sayfa olacak .yardımlarınızdan dolayı çok teşekkür ederim.

Not: Vardiya değişimlerinde haftalar değişiyor. örnek "23-24" hafta gibi"
 

Ekli dosyalar

  • New folder (2).rar
    237.5 KB · Görüntüleme: 3
S

Silinen Üye

Ziyaretçi
PHP:
Private Sub CommandButton1_Click()

    Dim con As Object, rs As Object
    Dim son As Long, a As Integer, k As Byte
    Dim arr
   Application.ScreenUpdating = False
    
    son = Cells(Rows.Count, "D").End(3).Row
    
    ReDim arr(1 To son, 1 To 1)
    
    Range("B3:C" & Rows.Count) = ""
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")

    
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
                ThisWorkbook.Path & "\21-22 Hafta Vardya.xlsx" & ";extended properties=""excel 12.0;hdr=no;imex=1"""

    On Error Resume Next
    For i = 3 To son
        For k = 5 To 7
         If Cells(i, k).Value <> "" Then
            a = Cells(i, k).Value
            Exit For
         End If
        Next
        
        sorgu = "Select f1 from [17-18$A2:E65536] where f3= '" & Cells(i, "D").Value & "' and f5= " & a & ""
        rs.Open sorgu, con, 1, 1
        arr(i - 2, 1) = rs(0).Value
        rs.Close
   Next
     Range("B3").Resize(i - 1, 1).Value = arr
     Range("C3:C" & son).Value = Range("I3").Value
    
      Application.ScreenUpdating = True
      MsgBox "Bitti...", vbInformation
     con.Close

    Set rs = Nothing: Set con = Nothing: Erase arr

End Sub
 

Ekli dosyalar

  • New folder (3).rar
    243.1 KB · Görüntüleme: 8
S

Silinen Üye

Ziyaretçi
Merhaba @gicimi .

O hata bendede oldu yani benimle alakalı değil.
Sadece sayfadaki Aktar butonu içindeki yani eklediğim kodu yaptım.
 
V

valentino06

VIP 4
Katılım
4 May 2018
Puan
614
Merhaba,
Günaydın Arkadaşlar Refaz68 çok teşekkür ederim. bu hata bende de veriyor acaba sebebi nedir. yardımcı olabilirmisiniz.
 
S

Silinen Üye

Ziyaretçi
Günaydın @valentino06 .

O hatayı es geçmiştim.Mobilden kodu incelediğime göre gelişmiş filtreleme hatası..

Akşama doğru bir incelerim dosyayı nasio olursa.
 
S

Silinen Üye

Ziyaretçi
Rica ederim sizede.
Dediğim gibi akşama doğru bakarım hataya.
Birde şöyle birşey yapabilirim.
Mesela 17-18 sayfa ve 24-25 ...gibi sayfaların isimlerine göre veri getirtebilriz.Yani hangi sayda adını combox ile seçerseniz ordaki sayfaya göre gelir vardiya için.
 
V

valentino06

VIP 4
Katılım
4 May 2018
Puan
614
Refaz68 hocam vardiyalar 14 günde bir değişiyor. her vardiya değişiminde yeni haftalara göre yayınlanıyor. teksayfa üzerinden sizden ricam eğer yapılabilirse Özet sayfasındaki açılır kutuları combox'a ile yapılabilirmiyiz.yardımlarınızdan dolayı çok teşekkür ederim.
 
S

Silinen Üye

Ziyaretçi
Özet sayfasına comboboxları ekledim.
21-22 Hafta Vardiya kapalı çalışma kitabındaki sayfa adlarını kod ile buldurdum(Bu olayı çok kişinin bildiğini sanmıyorum harika birşey Youtubeden gördüm :) )

Garip olan Vardiya sayfasına Commandbutton ekliyorum kayboluyor bende başka simge ekledim.2 adet Commandbutton yok oldu :)
Gifi izleyebilirsiniz.

 

Ekli dosyalar

  • New folder (4).rar
    273.6 KB · Görüntüleme: 5
S

Silinen Üye

Ziyaretçi
Yyyyyy

Buda Combobox olayı.Ayrıyeten önceden yazdığım commanbuttonların kaybolma olayı filtreden dolay vardiya sayfanın alt satırlarına gitmiş :)
 
Moderatörün son düzenlenenleri:
V

valentino06

VIP 4
Katılım
4 May 2018
Puan
614
@Refaz68 Hocam özet sayfasında vardiya durumuna göreye combobox koymadığını paylaşmış olduğunuz giften gördüm. Çok teşekkür ederim hayırlı sahurlar dilerim.
 
S

Silinen Üye

Ziyaretçi
@valentino06 hocam rica ederim.Alfabetikte sıralama yapıyor.Bende herşey normal çalışıyor deneyin hata varsa yarın akşama doğru bakarım.
Hayırlı sahurlar.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer İçerikler

S
Cevaplar
13
Görüntüleme
279
halily
H
S
Cevaplar
17
Görüntüleme
314
sedat2161
S
L
Cevaplar
21
Görüntüleme
1K
linkme
L
M
Cevaplar
2
Görüntüleme
856
mertatakan3838
M
B
Cevaplar
7
Görüntüleme
451
believing
B
B
Cevaplar
4
Görüntüleme
494
believing
B
T
Cevaplar
13
Görüntüleme
879
tahsinanarat
T
M
Cevaplar
2
Görüntüleme
1K
mertatakan3838
M
T
  • Kilitli
  • Soru-Cevap
Cevaplar
7
Görüntüleme
1K
tuvons
T
V
  • Kilitli
  • Soru-Cevap
Cevaplar
0
Görüntüleme
777
valentino06
V
Üst
Konuşma Başlat
Sitemiz ile ilgili tüm soru(n)larınız için hızlı iletişim kurabilirsiniz. Excel sorularınız cevaplanmayacaktır.
Ekip üyelerimizden ilk müsait olan cevap verecektir.