Kapalı dosyadan veri alırken sorun

[nightashes]

Merhaba arkadaşlar,

Ekteki iki dosya mevcut kapalı ve data. Kapalıdan veri alırken eğer yanlışlıkla datada olmayan birşey girersek excel kitleniyor. Yardımcı olursanız sevinirim.
Şimdiden teşekkürler.

 

[nightashes]

Konu Günceldir.

 

[halit3]

Merhaba arkadaşlar,

Ekteki iki dosya mevcut kapalı ve data. Kapalıdan veri alırken eğer yanlışlıkla datada olmayan birşey girersek excel kitleniyor. Yardımcı olursanız sevinirim.
Şimdiden teşekkürler.

Kapalı dosyada bir modülün içine bu kodu kopyayın

Sub verial()
a = MsgBox("DOSYALARINDAN VERİ ALMAK İSTİYORMUSUNUZ.?", vbYesNo)
If a = vbNo Then
Exit Sub
End If
Kalasor = ThisWorkbook.Path
Dosya = "Data.xls"
sayfaadi = "Sayfa1"
deg = "'" & Kalasor & "\" & "[" & Dosya & "]" & sayfaadi & "'!R"
sat = Application.ExecuteExcel4Macro("COUNTA('" & Kalasor & "\" & "[" & Dosya & "]" & sayfaadi & "'!C2)")
'sut = Application.ExecuteExcel4Macro("COUNTA('" & Kalasor & "\" & "[" & Dosya & "]" & sayfaadi & "'!R1)")
For r = 2 To sat
aranan = ExecuteExcel4Macro(deg & r & "C2")
For i = 2 To Cells(Rows.Count, "b").End(3).Row
bulunan = Cells(i, "b").Value
If Trim(aranan) = Trim(bulunan) Then
Cells(i, "c").Value = ExecuteExcel4Macro(deg & r & "C3")
Cells(i, "d").Value = ExecuteExcel4Macro(deg & r & "C4")
End If
Next i
Next r
MsgBox "işlem tamam"
End Sub

 

[halit3]

Acaba kod işinizi görmedimi.?
Geri dönüş yapılmadığından soruyorum.

 

[nightashes]

Merhaba,
Kusuruma bakmayın son günlerde işlerim çok yoğundu geri dönüş yapamadım. Kontrol ettim. Verdiğiniz kodlar çalışıyor fakat sorun şu ki hiç durmadan çalıştığı için excel kendini kitliyor. Şöyle bir ek yapsak nasıl olur. Mesela 10 tane boş hücre varsa artık aramayı kessin değerleri versin. Çünkü aklıma iki ihtimal geliyor. Ya data dosyasında sonuna kadar arama yapıyor ya da 0 değeri ile karşılaşınca kendini kitliyor. Yardımınız için çok teşekkür ederim.

 

[halit3]

Merhaba,
Kusuruma bakmayın son günlerde işlerim çok yoğundu geri dönüş yapamadım. Kontrol ettim. Verdiğiniz kodlar çalışıyor fakat sorun şu ki hiç durmadan çalıştığı için excel kendini kitliyor. Şöyle bir ek yapsak nasıl olur. Mesela 10 tane boş hücre varsa artık aramayı kessin değerleri versin. Çünkü aklıma iki ihtimal geliyor. Ya data dosyasında sonuna kadar arama yapıyor ya da 0 değeri ile karşılaşınca kendini kitliyor. Yardımınız için çok teşekkür ederim.

Öncelikle şunu söyleyim geri dönüş yapmayanların birdahaki sorularına cevap vermiyorum.

Sorunuza gelince Örnek dosyalarınızda kod gayet güzel çalışyor.
kendi dosyanızda ya başka bir makro tetikliyor yada çok veri var yani veri bulunan son satır numarası çok büyük.

 

[nightashes]

Yoğunluktan ötürü dönemedim geri. Sizinde olmasanız kimse yanıtlamıyor zaten. Bu arada ben işi biraz daha büyüttüm oturana kadar sürekli format değiştiriyorum. Ekte bir dosya gönderiyorum acaba sorun nedir? Hatam nerede acaba ? İncelerseniz sevinirim.
İyi çalışmalar

 

[halit3]

Yoğunluktan ötürü dönemedim geri. Sizinde olmasanız kimse yanıtlamıyor zaten. Bu arada ben işi biraz daha büyüttüm oturana kadar sürekli format değiştiriyorum. Ekte bir dosya gönderiyorum acaba sorun nedir? Hatam nerede acaba ? İncelerseniz sevinirim.
İyi çalışmalar

Öncelikle şunu söyleyim mdb uzantılı dosyalara ben cevap vermiyorum.
dosyanıza gelince şöyle bir baktım açılşta olmayan nesneler var onun için hata alıyorsunuz. kırmızı yerleri belirttim.

yanlış kod

Private Sub UserForm_Initialize()
listeye_al
OptionButton1.Value = True
OptionButton3.Value = True
[COLOR=red]Label51[/COLOR].Caption = "Toplan kayıt sayısı= " & ListBox1.ListCount
[COLOR=red]cmbCinsiyet[/COLOR].AddItem "Bay"
[COLOR=red]cmbCinsiyet[/COLOR].AddItem "Bayan"
cmbDepartman.AddItem "Teknik Ekip"
cmbDepartman.AddItem "Personel"
cmbDepartman.AddItem "Elektrik"
cmbDepartman.AddItem "Mekanik"
cmbDepartman.AddItem "Taşeron"
cmbDepartman.AddItem "-----------"
cmbDepartman.AddItem "Tanımsız"
cmbGorev.AddItem "Kalite Kontrol"
cmbGorev.AddItem "Şantiye Şefi"
cmbGorev.AddItem "Kalfa"
cmbGorev.AddItem "Usta"
cmbGorev.AddItem "Düz İşçi"
cmbGorev.AddItem "------------"
cmbGorev.AddItem "Tanımsız"
cmbUcretturu.AddItem "Maaş"
cmbUcretturu.AddItem "Yevmiye"
End Sub

doğru kod

Private Sub UserForm_Initialize()
listeye_al
OptionButton1.Value = True
OptionButton3.Value = True
[COLOR=red]Label150[/COLOR].Caption = "Toplan kayıt sayısı= " & ListBox1.ListCount
[COLOR=red]cmbCins[/COLOR].AddItem "Bay"
[COLOR=red]cmbCins[/COLOR].AddItem "Bayan"
cmbDepartman.AddItem "Teknik Ekip"
cmbDepartman.AddItem "Personel"
cmbDepartman.AddItem "Elektrik"
cmbDepartman.AddItem "Mekanik"
cmbDepartman.AddItem "Taşeron"
cmbDepartman.AddItem "-----------"
cmbDepartman.AddItem "Tanımsız"
cmbGorev.AddItem "Kalite Kontrol"
cmbGorev.AddItem "Şantiye Şefi"
cmbGorev.AddItem "Kalfa"
cmbGorev.AddItem "Usta"
cmbGorev.AddItem "Düz İşçi"
cmbGorev.AddItem "------------"
cmbGorev.AddItem "Tanımsız"
cmbUcretturu.AddItem "Maaş"
cmbUcretturu.AddItem "Yevmiye"
End Sub

 

[nightashes]

Evet hatayı düzelttim form açılıyor. Fakat bağlantı konusunda sorun yaşıyorum. Bu konu beni fazlasıyla aşıyor zaten. Peki Halit Bey acaba bu formun diğer öğeleri konusunda yardımcı olur musunuz?