Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

valentino06

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe
  2. İngilizce

Reputation:

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
Çözüm
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...

Refaz68

Yeni Üye
Kullanıcı

Reputation:

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
Çözüm

valentino06

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe
  2. İngilizce

Reputation:

Merhaba,
Günaydın Arkadaşlar Refaz68 çok teşekkür ederim. bu hata bende de veriyor acaba sebebi nedir. yardımcı olabilirmisiniz.
 

Refaz68

Yeni Üye
Kullanıcı

Reputation:

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.
 

valentino06

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe
  2. İngilizce

Reputation:

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.
 

Refaz68

Yeni Üye
Kullanıcı

Reputation:

Ö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

Refaz68

Yeni Üye
Kullanıcı

Reputation:

748

Buda Combobox olayı.Ayrıyeten önceden yazdığım commanbuttonların kaybolma olayı filtreden dolay vardiya sayfanın alt satırlarına gitmiş :)
 

valentino06

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe
  2. İngilizce

Reputation:

Refaz68 Hocam şu kontrol edemiyorum inşallah yarın iş yerinde bakarım ve dönüş yaparım. Çok teşekkür ederim. Hayırlı İftarlar
 

valentino06

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe
  2. İngilizce

Reputation:

@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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular

Üst