Farklı Sayfadaki Siparişleri Göstermek

[tevfikdemir]

Öncelikle Tek kelime ile süper bir forum sayfası olduğunu söylemeden geçemeyeceğim.Sevgili arkadaşlar ,Ekli sayfada Danısman klasorunun icindeki dosyaya baska bir sayfadaki verileri isimlere göre süzerek almak istiyorum.Nasıl yapacağım hakkında yardımcı olursanız minnettar olurum.

Saygılarımla

 

[Levent Menteşoğlu]

Eklediğiniz dosyada birden fazla dosya mevcut. Sprunuz sadece Danışman isimli dosya ile ilgili ise sadece bu dosyayı biraz daha detaylandırarak ekleyiniz, en azından dosyanızda bir kaç tane veri olsun.

 

[tevfikdemir]

Sayın leventm,
Danisman.xls dosyasının macrosunda ağ üzerinden siparis klasörünün içindeki şifreli DANSIP.XLS dosyasını kullanıyor.Benim istediğim bu şifreli dosyaların (şifresi:9413102065) içinden danışman adına göre ilgili satırları süzüp Danışman.xls dosyasının 2.sayfasına alıp göstermesi.Şimdiden teşekkürler.
Saygılarımla

 

[Levent Menteşoğlu]

Sorunuza net cevap vermek için DANSIP.XLS dosyanızında küçük bir örneği ile bu dosyanın yolunuda verebilirmisiniz.

 

[tevfikdemir]

Dosya içine kayıtları gene bu formdan öğrendiğim yolla kaydediyorum.Ağ üzerinde MAP lediğim sürücü harfi "P" ve yol aşağıdaki gibidir.
Workbooks.Open Filename:="P:\SIPARIS\DANSIP.XLS", Password:="9413102065", WriteResPassword:="9413102065"

Saygılarımla

 

[Levent Menteşoğlu]

DANIŞMAN isimli dosyanızdaki userform üzerinde bulunan SIP.GOST. isimli butona aşağıdaki kod kopyalayın. Bu kod combobox1 den seçilen danışman adını DANSIP isimli dosyada bulur ve bu isme ait olan verileri textboxlara getirir.

[vb:1:17ff05c59c]Private Sub CommandButton2_Click()
If ComboBox1.Value = "" Then GoTo mesaj
Set yeni = New Excel.Application
yeni.Visible = False
yeni.Workbooks.Open Filename:="P:\SIPARIS\DANSIP.XLS", Password:="9413102065", WriteResPassword:="9413102065"
Set dosyaadi = yeni.Workbooks("DANSIP.xls").Sheets("SIPARIS")
sat = dosyaadi.[h1:h65536].Find(ComboBox1.Value).Row
For a = 1 To 7
Controls("textbox" & a) = dosyaadi.Cells(sat, a)
Next
yeni.Workbooks.Close
Set yeni = Nothing
Exit Sub
mesaj:
MsgBox ("DANISMAN SECINIZ")
End Sub[/vb:1:17ff05c59c]

Not:Textboxlardan Kaydet butonu ile verileri sayfa2 ye kaydedebileceğinizi sanıyorum.

 

[tevfikdemir]

Sayın leventm,
Desteğiniz ve ilginiz için çok teşekkür ederim fakat ;
Benim istediğim Danışmanın aynı anda bütün siparişlerini bir arada görmesi.Kaydet tuşu DANSIP.xls içerisine siparişleri kaydediyor.

Amacım ilgili danışmanın kaç adet parça siparişi olduğunu görmesi ve müşterilerini bilgilendirmesi.Userforma teker teker geri gelmeleri işime yaramıyor.Siz bana DANSIP dosyasından ilgili danışman ismine sahip satırların hepsini birden DANISMAN.XLS dosyasının Sayfa2 sine nasıl aktaracağını öğretebilirseniz çok memnun olurum.
Saygılarımla

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:82d2dabe25]Private Sub CommandButton2_Click()
If ComboBox1.Value = "" Then GoTo mesaj
Set yeni = New Excel.Application
yeni.Visible = False
yeni.Workbooks.Open Filename:="P:\SIPARIS\DANSIP.XLS", Password:="9413102065", WriteResPassword:="9413102065"
Set dosyaadi = yeni.Workbooks("DANSIP.xls").Sheets("SIPARIS")
Sheets("sayfa2").[a2:j65536].ClearContents
For c = 2 To dosyaadi.[a65536].End(3).Row
If dosyaadi.Cells(c, "h") = ComboBox1 Then
d = d + 1
For a = 1 To 7
Sheets("sayfa2").Cells(d + 1, a) = dosyaadi.Cells(c, a)
Next
Sheets("sayfa2").Cells(d + 1, "h") = dosyaadi.Cells(c, "h")
Sheets("sayfa2").Cells(d + 1, "i") = dosyaadi.Cells(c, "i")
End If
Next
yeni.Workbooks.Close
Set yeni = Nothing
Sheets("sayfa2").Select
MsgBox "veriler aktarıldı"
Exit Sub
mesaj:
MsgBox ("DANISMAN SECINIZ")
End Sub
[/vb:1:82d2dabe25]

 

[tevfikdemir]

Sayın leventm,

Eğer seçtiğiniz danısmanın DANSIP.XLS içinde hiç kaydı yoksa problem yok fakat kaydı olan bir danışmanı seçince (Bana Lazım olan) aşağıdaki hata kodunu veriyor.

Run-time Error '13':
Type mismatch

diye bir hata veriyor ve aşağıdaki kodu sarı bir okla gösteriyor.

Sheets("sayfa2").Cells(d + 1, "i") = dosyaadi.Cells(c, "i")

Bu konuyla ilgili sizi gereğinden fazla meşgul ettiğim için kusura bakmayın.Ama ileride macroyu iyice öğrendiğimde yeni başlayan arkadaşlara yardımcı olarak üzerinizdeki yükü almak isterim

Saygılarımla

 

[tevfikdemir]

Bir de cevap gelinceye kadar uğraşayım derken fark ettiğim bir şey var.Artık DANSIP.XLS dosyası salt okunur olmuş.Veri kaydı yapamıyorum.
yeni.Visible = False kodunu True olarak değiştirdim.Bir şey fark etmedi.Şu anda kayıt yapamaz oldum.

Saygılarımla

 

[tevfikdemir]

Sayın leventm,

Hata veren satırı sildim ve proble gitti.Bu arada Yukarıda yapmış olduğum True ve Falce değişikliğininde ne işe yaradığını çözdüm ve tekrar eski haline getirdim.Fakat şu anda tek problemim DANSIP.XLS dosyasına bir şey kaydedemiyorum.

Desteğiniz için çok Teşekkür ederim.

Not:Bu belkide benim bilgisayarımdan kaynaklanıyor olabilir Bilgisayarı kapatıp tekrar açacağım.

Saygılarımla.

 

[tevfikdemir]

Sayın leventm,

Bilgisayarı kapatıp açınca DANSIP dosyasının salt okunurluğu gitti.Program artık tam istediğim gibi çalışıyor.Yardımlarınız için çok teşekkür ediyorum.
Ben bu formun hastası oldum.Bu rası tam bir Eğitim yeri sizlerin sayesinde.
Çok teşekkür ediyorum.

Saygılarımla