Hide edilen dosyayı görmek

[TİKOS]

arkadaşlar , bu da başka bir sorun çözemediğim.
Ekteki dosyada fatura sheetini gizledim. Anasayfada giriş _Fatura girişi yaptığımda göremiyorum. Bu konuda yardım lütfen.
tşk

 

[TİKOS]

sayın hocalarım lütfen yardım. Benim için çok önemli mutlaka halletmem gerekiyor.

 

[Levent Menteşoğlu]

Userformdaki ilgili kodları aşağıdaki ile değiştrerek deneyin.

Private Sub UserForm_Initialize()
Set s1 = Sheets("fatura")
Dim i As Integer
ListView1.View = lvwReport
With ListView1.ColumnHeaders
    .Add , , "Sıra No ", 0
    .Add , , "Açıklama ", 150
    .Add , , "Firma ", 100
    .Add , , "Hafta ", 35
    .Add , , "Tarih ", 65
    .Add , , "Fatura No ", 65
    .Add , , "Malzeme Cinsi ", 90
    .Add , , "Fiyat ", 70
    .Add , , "Miktar ", 70
    .Add , , "Tutar ", 52
    End With
 'Kolanlara verileri al
c = WorksheetFunction.CountA(s1.Range("B:B"))
With ListView1
    For i = 1 To c
    x = x + 1
            .ListItems.Add , , s1.Cells(i + 1, 1)
            .ListItems(x).SubItems(1) = s1.Cells(i + 1, 2)
            .ListItems(x).SubItems(2) = s1.Cells(i + 1, 3)
            .ListItems(x).SubItems(3) = s1.Cells(i + 1, 4)
            .ListItems(x).SubItems(4) = s1.Cells(i + 1, 5)
            .ListItems(x).SubItems(5) = s1.Cells(i + 1, 6)
            '.ListItems(x).SubItems(2) = FormatNumber(s1.Cells(i + 1, 3).Value, 2)
            '.ListItems(x).SubItems(3) = FormatNumber(s1.Cells(i + 1, 4).Value, 2)
           ' .ListItems(x).SubItems(4) = FormatNumber(s1.Cells(i + 1, 5).Value, 2)
           ' .ListItems(x).SubItems(5) = FormatNumber(s1.Cells(i + 1, 6).Value, 2)
            .ListItems(x).SubItems(6) = s1.Cells(i + 1, 7)
            .ListItems(x).SubItems(7) = FormatNumber(s1.Cells(i + 1, 8).Value, 2)
            .ListItems(x).SubItems(8) = FormatNumber(s1.Cells(i + 1, 9).Value, 2)
            .ListItems(x).SubItems(9) = FormatNumber(s1.Cells(i + 1, 10).Value, 2)
            
    Next
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
End Sub

 

[TİKOS]

levent hocam ellerinize sağlık.
Yalnız listview üstünde çift tıklattığımda kayıt yapmak için bir form açılıyordu malesef şimdi açılmıyor biraz uğraştım ama olmadı. Yardımcı olurmusunuz.

 

[TİKOS]

Levent hocam yardım ltf

 

[galips26]

ek'te Formunuz açılıyor .

kolay gelsin

 

[TİKOS]

Hocam teşekkürler
ellerinize sağlık