kapalı dosyadaki combobox'ın değeri

[peleryn]

Herkese Merhabalar;

Aşağıdaki kod kapalı dosyadaki PERFORMANS KAYIT sayfasında bir hücrenin değerini alıyor bu satırı bu sayfadaki ComboBox1'in değerini alacak şekilde değiştirebilmem mümkün müdür?

Cells(Satır, 2) = ExecuteExcel4Macro("'" & Yol & "\[" & Dosya & "]PERFORMANS KAYIT'!R2C1")

 

[Orion1]

Herkese Merhabalar;

Aşağıdaki kod kapalı dosyadaki PERFORMANS KAYIT sayfasında bir hücrenin değerini alıyor bu satırı bu sayfadaki ComboBox1'in değerini alacak şekilde değiştirebilmem mümkün müdür?

Öyle değilde o dosyadaki o sayfadaki combobox verileri hangi yöntemle alıyor.Sorgulama yapıyormu?Hangi şartları sorguluyor.
Kısacası o comboboxa veriler hangi şartlarda alınıyorsa istediğiniz hücreye istediğiniz veriyi alabilirsiniz(Hücreden combo dan deiğil).Tabii bu aldığınız değer combobodaki değerle ayni olacaktır.

 

[peleryn]

Evren Hocam özlemişim sizi öncelikle merhabalar

söz konusu dosyadaki combobox veriyi "ogretmen" adlı bir alandan ListFillRange yöntemiyle alıyor.Ancak son halinde ComboBox'ta seçilmiş olan bir değer var ve dosya bu combobox bu değerdeyken kaydedilmiş ben bu değeri almak istiyorum.

 

[peleryn]

ComboBox'ın LinkedCell alanını elimdeki kodlara uyarlayarak kullanabilirim sanırım ama özellikle merak ettiğim R1C1 stiliyle bir başvuru değilde direkt combobox'ın değerini almak mümkün müdür dü?

 

[Orion1]

Evren Hocam özlemişim sizi öncelikle merhabalar

söz konusu dosyadaki combobox veriyi "ogretmen" adlı bir alandan ListFillRange yöntemiyle alıyor.Ancak son halinde ComboBox'ta seçilmiş olan bir değer var ve dosya bu combobox bu değerdeyken kaydedilmiş ben bu değeri almak istiyorum.

Comboboxta en son seçilmiş veriyi almak istiyorsanız.
O veriyi o sayfada bir hücreye yazdırın.Comboboxın style özelliğini 2 yapın
Combonun click olayınada veriyi atacağınız hücreye veriyi atma kodunbu yazın.
o dosyada çalışma yaptığınızda o hücrede o veri olacaktır.
Buradaki verdiğiniz koduda o hücreye göre düzenleyin.İşlem tamamdır.

 

[peleryn]

En kısa yol en iyi bildiğin yol..dedikleri doğruymuş hocam..şimdiye yapmıştım tühh

Çok teşekkürler Evren Hocam kolay gelsin..

 

[peleryn]

İyi de hocam biraz geç düştü jetonum bu durumda önemli bir problemim var.Bir klasörde 1000'e yakın bu özellikte eski dosya var ve ben bunların comboboxlarındaki değerleri bir dosyaya çekmek için uğraşıyordum.Bu durumda öncelikle bu klasörlerin şu şu sayfasındaki combobox'ın değerini x hücresine yazan bir kod mu yazmam gerekecek?

 

[Orion1]

ComboBox'ın LinkedCell alanını elimdeki kodlara uyarlayarak kullanabilirim sanırım ama özellikle merak ettiğim R1C1 stiliyle bir başvuru değilde direkt combobox'ın değerini almak mümkün müdür dü?

Kapalı olan bir dosyadaki comboboxtaki veya herhangi bir nesnedeki veriyi alamazsınız.Çünkü o nesnenin içi dosya açıldığında sizin yazdığınız kodla veri alınarak doluyor.Yada propertiesten yazmışsanız listfill range veya rowsource işte artık ne ise dosya açıldığında içi doluyor.O nesneler kod yazılmadan hiç bir şey ifade etmiyor.
Onlar veri tabanı değiller.Onlar veri tabanındaki verilerimizi istediğimiz bir yöntemle ve istediğimiz sorgularla sorgulayarak alrak içlerini doldururlar.
Bütün iş veri tabanındadır.
Eğer iyi bir veri tabanınız varsa onu eğip büküp istediğiniz bir nesnede istediğiniz şekilde sorgulayarak istediğiniz gibi. nesnenin özellikleri el verdiğince gösterebilirsiniz.Bütün programlar böyle çalışır.Veri tabanı,veri tabanı,veri tabanı.
Şunuda itiraf etmeliyim ki biz excelciler hemen hemen çoğumuz bu veri tabanı konusunda zayıfız.Bende dahil.
Accessçilere bu konuda imrenerek bakıyorum.
Onlar çok iyiler bu konuda.
Kolay gelsin.

 

[peleryn]

ComboBox'ın aslında dosya kapalıyken boş olduğu hiç aklıma gelmemişti..Şimdi siz açıklayınca yerli yerine oturdu hocam..ComboBox'a o dosyaların hazırlandığı sistemde link vermemiş olduğum için şimdi anladığım kadarıyla bir tasarım hatasının bedeli olarak şimdi elim boş kalacağım..ya da bu sefer de önce tek tek dosyaları açıp comboboxtaki verilerin x hücresine link vermesini sonra da dosyama bu hücredeki değerin yazılmasını sağlayacağım..Doğru mudur?

 

[Orion1]

ComboBox'ın aslında dosya kapalıyken boş olduğu hiç aklıma gelmemişti..Şimdi siz açıklayınca yerli yerine oturdu hocam..ComboBox'a o dosyaların hazırlandığı sistemde link vermemiş olduğum için şimdi anladığım kadarıyla bir tasarım hatasının bedeli olarak şimdi elim boş kalacağım..ya da bu sefer de önce tek tek dosyaları açıp comboboxtaki verilerin x hücresine link vermesini sonra da dosyama bu hücredeki değerin yazılmasını sağlayacağım..Doğru mudur?

Evet doğrudur.

 

[peleryn]

Hocam bu durumda ekli dosyamda bir klasör içinde 4 dosya var.Ve herbir klasörün PERFORMANS KAYIT sayfasında ComboBox1 mevcut..Bu combolardaki değerleri bir dosyaya almama yardımcı olabilecek misiniz?

 

[Orion1]

Kodlar evren dosyasının içindedir.
Diğer dosyalardaki combodan a1 hücresine veri atma işini yaptım.
Dosya ektedir.

Sub kapali_aktar_59()
Dim fso As Object, fs As Object, f As Object, sat As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.getfolder(ThisWorkbook.Path).Files
Sheets("Sayfa1").Select
Range("A2:B65536").ClearContents
Application.ScreenUpdating = False
sat = 2
For Each f In fs
    If f <> ThisWorkbook.FullName Then
        Cells(sat, "A").Value = f.Name
        Cells(sat, "B") = ExecuteExcel4Macro("'" & _
        ThisWorkbook.Path & "\[" & f.Name & "]PERFORMANS KAYIT'!R1C1")
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
Set fso = Nothing
Set fs = Nothing
Set f = Nothing
MsgBox "İşlem Tamamlanmıştır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[peleryn]

Hocam doğru mu anlıyorum dosyaları tek tek açıp a1 e değerin aktarılması için kodları manuel mi yazmışsınız?

 

[peleryn]

Sanırım durum böyle..Ama bu durumda 1000 e yakın dosyayı açıp tek tek combobox1 değerlerinin a1 hücresine aktarılması gerekir..

 

[Orion1]

Sanırım durum böyle..Ama bu durumda 1000 e yakın dosyayı açıp tek tek combobox1 değerlerinin a1 hücresine aktarılması gerekir..

Başka nasıl oacak ki.
Siz comboboxtaki değerimi istiyorsunuz yoksa comboboxta listelenen değerlerden herhangi bir listindeximi istiyrosunuz.
Eğer comboboxtaki değeri istiyoresanız comboxı seçip içinden bir depğer seçmeyince nasıl a1 hücresine o değer gidecek?.

 

[peleryn]

Evren Hocam bir kod şöyle birşey yapsa önce kapalı dosyaların tümünün thisworkbook beforeclose kısmına combobox1'deki değeri a1 hücresine atayan bir kod eklese..daha sonra klasördeki dosyaların hepsini bir döngüye sokup sırayla açıp kapatsa sonra da çözümünüzde verdiğiniz kodla bu değerleri alsa böyle istenilen sonuca ulaşmak mümkün olur gibi geliyor..Sizce mantıklı mı?

 

[Orion1]

Evren Hocam bir kod şöyle birşey yapsa önce kapalı dosyaların tümünün thisworkbook beforeclose kısmına combobox1'deki değeri a1 hücresine atayan bir kod eklese..daha sonra klasördeki dosyaların hepsini bir döngüye sokup sırayla açıp kapatsa sonra da çözümünüzde verdiğiniz kodla bu değerleri alsa böyle istenilen sonuca ulaşmak mümkün olur gibi geliyor..Sizce mantıklı mı?

O dosyaların hepsini bir klasör içine koyunuz.
İçinde başka dosyalar olmasın.
Bu verdiğim aşağıdaki dosyayı çalıştırın.
Çıkan formdan klasörü seçin ve tamama basın hepsine beforeclose olayına bu kodlar yazılacaltır.
Dosyayı Sayın Halit3 arkadışımız yapmıştır.
Ondan sonra benim verdiğim dosyayı o klasörün içine koyup çalıştırınız.

 

[Orion1]

Not:
Dosyanızın içinde ComboBox1 adlı nesne yoksa dosya hata verecektir.

 

[peleryn]

Evren Hocam uygulayacağım ana klasör işyerimde.şimdi örnek klasöre uyguladım tek kelimeyle harika.siz el atacaksınız da olmayacak bir iş.Öyle bir durum görmedim duymadım

Emeğinize sağlık çok teşekkür ederim.Halit hocamın da bizzat kendisinden ve arşivdeki çözümlerinden çok fayda gördüm..Halit hocama da teşekkür ediyorum..

 

[Orion1]

Evren Hocam uygulayacağım ana klasör işyerimde.şimdi örnek klasöre uyguladım tek kelimeyle harika.siz el atacaksınız da olmayacak bir iş.Öyle bir durum görmedim duymadım

Emeğinize sağlık çok teşekkür ederim.Halit hocamın da bizzat kendisinden ve arşivdeki çözümlerinden çok fayda gördüm..Halit hocama da teşekkür ediyorum..

Rica ederim.
İyi çalışmalar.
Not:Her dosyanın İlgili sayfaların A1 hücresine Comboboxtaki değeri yazar.