Listbox'taki isme çift tıklayınca hata alıyorum.

[kelti_2000]

Merhaba

daha önceden farklı bir dosyada kullandığım makroları ektedi dosyaya ekledim.

Dosyamda SERVIS isminde bir sayfa olacak ve 2 tane userform.

Dosyayı açtığımda otomatik olarak müşteri takip listesi başlıklı userform açılıyor.
açılan userformdaki isimlere tıkladığımda 2.userform olan müşteri kayıt userformu açılması gerekiyor. satıra çift tıkladığımda listview hatası veriyor. list view 2. userformda mevcut onda ise seçilen kullanıcının başka kaydı varsa o gözüküyor. servis sayfasındaki satırı textbox'lara aktaracak.

kayıt tuşuna bastığımda aynı satırı değiştirmesini nasıl yapacağımı bilmiyorum.
son olarakta listboxtaki son sütunu bir türlü gösteremedim hatam nedir acaba ?

ilgilenebilecek arkadaşlara şimdiden teşekkür ederim.

 

[hımmmmmmmm]

slm

tools-referencers-browse adımından dsya türü ocx seç MSCOMCTL.ocx
tanımla... tanımlatınca bende çalıştı...

 

[kelti_2000]

Teşekkür ederim.

O problem düzeldi. şimdi sonraki userforma geliyor ama ikinci satırada tıkladığımda ilk satırın bilgileri geliyor ve kayıt tuşuna bastığımda o satırı güncellemesi için nasıl bir makro gereklidir.

bende aşağıdaki gibi bir makro var ama yeni hücreye yazmak içindi bu makro.

Private Sub CommandButton1_Click()
Sheets("MERKEZ").Select
Range("A23").Select
Dim i As Integer

If TextBox14.Value = "" Then
MsgBox "Lütfen Personelin Soyadını Giriniz.", , "Kayıt Hatası"
Exit Sub
End If

If TextBox13.Value = "" Then
MsgBox "Lütfen Personelin Adını Giriniz.", , "Kayıt Hatası"
Exit Sub
End If
'..........................................................
'TextBox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 3).Value = TextBox13.Value 'ADI
ActiveCell.Offset(0, 5).Value = TextBox14.Value 'SOYADI
ActiveCell.Offset(0, 8).Value = TextBox15.Value 'SHOP
ActiveCell.Offset(2, 3).Value = TextBox16.Value 'POZİSYON
ActiveCell.Offset(2, 8).Value = TextBox17.Value 'İŞE GİR TAR
ActiveCell.Offset(4, 3).Value = TextBox18.Value 'İZİN DÖNEMİ
ActiveCell.Offset(6, 1).Value = TextBox19.Value 'İZİN BAŞLANGIÇ TAR
ActiveCell.Offset(6, 7).Value = TextBox20.Value 'İZİN BİTİŞ TAR
ActiveCell.Offset(9, 4).Value = TextBox21.Value 'İŞE BAŞLAMA TAR
ActiveCell.Offset(12, 3).Value = TextBox22.Value 'HAK ETTİĞİ GÜN
ActiveCell.Offset(12, 5).Value = TextBox27.Value 'ÖNCEDEN ALDIĞI GÜN
ActiveCell.Offset(12, 6).Value = TextBox23.Value 'İSTEDİĞİ GÜN
ActiveCell.Offset(12, 7).Value = TextBox29.Value 'KALAN GÜN
'ActiveCell.Offset(6, 7).Value = TextBox20.Value 'İZİN BİTİŞ TAR
ActiveCell.Offset(1, 5).Value = TextBox24.Value 'İZNE HAK KAZANDIĞI TARİH

Unload Me
Application.ScreenUpdating = True
Application.Visible = True
ActiveWorkbook.Save
Sheets("MERKEZ").Select
Range("A1").Select
ActiveWindow.SelectedSheets.PrintPreview 'Copies:=1
Sheets("PERSONEL").Select
On Error Resume Next
Application.Visible = False
persec.Show
Exit Sub
End Sub

 

[hımmmmmmmm]

slm

alican bey heralde biryerlerden yazdığımı ezberci falan olduğumu düşündünüz... kesinlikle hayır...
bizzat kullandığım nesnelerle ilgili... listview haricinde bir çok nesne kullanırım..
spreadsheet, datagrid, adodc, datalist ve datacombo nesneleri..
sık kullandığım nesneler.. listview pek kullanmam..daha çok datagrid kullanırım..
bu nesnelerin tanımı excel vb de yoktur... yani haa diyince çalışmaz...
ilgili dll veya ocx dosyalarını bilmaeısınız...
listview çalıştıran lib dosya mscomctl.ocx dir...
spreadsheets tanımı yapmak isterseniz yani excel gibi hücreleri olan bir nesnedir bu... web component kurmalısın..
kurmak yetmez kurduktan sonra owc10.ocx tanımlaman gerek
adodc nesnesi msadodc.ocx de
datalist ve datacomboo nesneleri msdatlst.ocx çalıştırı..
bunları registe etmeden, ettikden sonra references tanımlamadan excelde
çalışmanın imkanı yoktur...
datagrid için bir şey daha izah edyim... ocx ini dosyayı registe etmeniz ve tanımlamanızda anlam ifade etmez... excel hiç bir koşulda bu nesneyi çalıştırmaz... elinizde vb6 olacak ve 2 seçimlik kısmı kurak gerekecek.. register düzeni için...
listview içinde aynı durumlar geçerlidir... excel listview nesnesini tanımaz...
tanıtmak için ocx ve dll dosyasını arayıp bulmalısınız... excelin bilmediği
her nesne için aynı işlem geçerlidir...
active x tanımınıda bu arada unutmamak.. gerek oda referenses edilmeli...
açıkmlama yeterli olduğunu sanırım...

 

[kelti_2000]

userforma aldığım bilgilerde değişiklik olduğunda yine aynı hücereleri değiştirmesi için nasıl bir makro kullanabilirim yada yukarıdakini nasıl değiştirebilirim.

 

[hımmmmmmmm]

anlamadığım şey .. böylesine güzel bir çalışma yapmışsın.. nasıl devamını getiremiyosun... neyi nasıl yaptığını bilmedenmi oluyor bunlar... bu güzel çalışmalardan sonra bunu halledememen biraz bana garip geldi..

list formundaki listbox1.value değerini alıp sayfadaki sıra nosuna endexle...

 

[kelti_2000]

Makro yazmayı bilmiyorum. o makroları başka bir dosyam için site bulunan dosyalardan derlemiştim. esik kaldığım yerlerde saolsun arkadaşlar yardımcı oldu. yine aynı şekilde bir kısım işlemi yaptım ve yukarıda yazdığım iki sorun kaldı.

 

[kelti_2000]

problemimle ilgili yardım edebilecek arkadaş varmı acaba?

 

[halit3]

problemimle ilgili yardım edebilecek arkadaş varmı acaba?

Bu doyanızda yapılmış hiç bir şey yok kodların hepsini yazmak baya uğraştırıcı iş dosyanıza birşeyler yapmaya çalıştım. devamını siz araştırarak geliştirebilirsiniz.