Soru YATAKHANE DÜZENI ILE ILGILI SORU

[Ahmet ÖZGÜR]

Merhaba, ekte göreceğiniz excel tablosundaki ilk sayfada girdiğim kişi sayısının ikinci sayfaya aktarılması ile ilgili çalışma yaptım ama başarılı olamadım.

yardımınızı rica ediyorum

 

[Necdet]

Merhaba,

Ay altndaki değerler standartsa aşağıdaki kodu deneyiniz.
Düzeltme gerekirse yapınız. Kod örnek olması açısından verilmiştir.

Sub Aktar()

    Dim i   As Long, _
        c   As Range, _
        Ay  As String, _
        Gun As Integer
    
    For i = 7 To Sayfa1.Cells(Rows.Count, "B").End(3).Row
        Ay = Format(Sayfa1.Cells(i, "G"), "mmmm")
        Gun = Day(Sayfa1.Cells(i, "G")) - 2
        
        Set c = Sayfa2.Range("B:B").Find(Ay, LookIn:=xlValues)
        If Not c Is Nothing Then
            MsgBox c.Offset(7, Gun).Address
        End If
    
    Next i
    
End Sub

 

[Ahmet ÖZGÜR]

Necdet bey, yanıtınız için teşekkür ederim, bu excel tablosuna bir girdi olacak. Yeni kimlik üzerindeki karekodu okutunca veriler bu excele gelsin istiyorum onuyunca gelir büyük ihtimal soldan sağa doğru satır satır yazar bilgileri diye düşünüyorum!!! Bilginiz var mı bu konuda

 

[Necdet]

Merhaba,
Kare kod hakkında bilgim yok.

 

[Ahmet ÖZGÜR]

Merhaba,
Kare kod hakkında bilgim yok.

teşekkür ederim.