Başka dosyadan veri alma hk.

T

tigiy

Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Herkese merhaba,

örnek olarak verdiğim dosya bir veri sayfasından listviewe veri alıyor ve listviewe tıklayınca comboboxlar yardımıyla gerekli güncelleme arama ve silme işlemlerini yapabiliyorum. Ancak userform ile data sayfası aynı excelin içerisinde. Benim istediğim şey ise data sayfasının ayrı bir excel içerisinde ve kapalı olması. Userform ise başka bir excelin içerinde olacak. Bunu istememin sebebide bir çok kullanıcı aynı anda programa erişip kullanabilmesi.

Konu hakkında baya araştırma yaptım ancak bilgim yeterli olmadı. Siz değerli üyelerimizin ve uzmanlarımınız yardımlarını beklemekteyim.

Saygılarımla
 

Ekli dosyalar

Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
VBA şifreli .Bu durumda kimse size yardım etmez.:cool:
 
T

tigiy

Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Orion1' Alıntı:
Dosyanız ektedir.:cool:
Genişletmek için tıkla ...
Hocam teşekkürler elinize sağlık ancak bir kaç sorum daha var sadece listviewe veri alıyor ben diğer butonlarında kapalı dosya ile haberleşmesini istiyorum. Yani güncelleme arama değiştirme silme vb işleride kapalı dosya üzerinde yapsın. Bu konuda yardımcı olursanız sevinirim.

Saygılarımla
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
tigiy' Alıntı:
Hocam teşekkürler elinize sağlık ancak bir kaç sorum daha var sadece listviewe veri alıyor ben diğer butonlarında kapalı dosya ile haberleşmesini istiyorum. Yani güncelleme arama değiştirme silme vb işleride kapalı dosya üzerinde yapsın. Bu konuda yardımcı olursanız sevinirim.

Saygılarımla
Genişletmek için tıkla ...
Teker teker yapayım.
Bu Kayıt girişi.:
Dosya ektedir.:cool:

DOSYAYI İNDİR

..
 

Ekli dosyalar

T

tigiy

Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
hocam bir sorum daha var illa id vermek mi gerekiyor ben daha örnekte idleri listview alırken verdiriyordum sabit değillerdi yani. Birde ben mevcuttaki tüm comboboxlarda arama yaptırıyordum sizin örneğinizde sadece öğrenci adına göre arama yapıyor bunu da değiştirmem gerek
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
tigiy' Alıntı:
hocam bir sorum daha var illa id vermek mi gerekiyor ben daha örnekte idleri listview alırken verdiriyordum sabit değillerdi yani. Birde ben mevcuttaki tüm comboboxlarda arama yaptırıyordum sizin örneğinizde sadece öğrenci adına göre arama yapıyor bunu da değiştirmem gerek
Genişletmek için tıkla ...
Evet mutlaka id vermek gerekiyor.
Diğer aramalarınızın kodlarını verdiğim arama örneğine bakarak yapabilirsiniz.:cool:
 
T

tigiy

Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Orion1' Alıntı:
Evet mutlaka id vermek gerekiyor.
Diğer aramalarınızın kodlarını verdiğim arama örneğine bakarak yapabilirsiniz.:cool:
Genişletmek için tıkla ...
Hocam ben biraz baktım çözemedim benim örneğimdeki kod gibi bir arama kodu kullanma şansımız var mı ya da siz arama konusunda örneği genişletebilr misiniz?
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
tigiy' Alıntı:
Hocam ben biraz baktım çözemedim benim örneğimdeki kod gibi bir arama kodu kullanma şansımız var mı ya da siz arama konusunda örneği genişletebilr misiniz?
Genişletmek için tıkla ...
Tamam.
Yapacam.
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
tigiy' Alıntı:
Hocam ben biraz baktım çözemedim benim örneğimdeki kod gibi bir arama kodu kullanma şansımız var mı ya da siz arama konusunda örneği genişletebilr misiniz?
Genişletmek için tıkla ...
Dediğiniz arama kodlarını yazdım.
Dosyayı güncelledim.
9 nolu mesajdan indirebilirsiniz.:cool:
 
T

tigiy

Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
hocam teşekkürler ancak ben anlatamadım sanırım ben tek ara düğmesinde tüm comboboxlara göre arama yaptırmak istiyorum bu şekilde ayrı butonlarla değil.

Benim verdiğim örneği inceleme şansınız olursa oradaki gibi comboboxlarda yazılanlara göre arama yapmak istiyorum
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
tigiy' Alıntı:
hocam teşekkürler ancak ben anlatamadım sanırım ben tek ara düğmesinde tüm comboboxlara göre arama yaptırmak istiyorum bu şekilde ayrı butonlarla değil.

Benim verdiğim örneği inceleme şansınız olursa oradaki gibi comboboxlarda yazılanlara göre arama yapmak istiyorum
Genişletmek için tıkla ...
Buyurn.
Dosyanız linktedir ve eklidir.:cool:

DOSYANIZ EKTEDİR

...
 

Ekli dosyalar

T

tigiy

Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Süpersiniz hocam elinize sağlık çok güzel çalışıyor ancak bir kaç sorum daha var.
Bu kısmı anlayamadım
Kod: 
Loop
rs.Close
rs.Open "select distinct Ogrenci_Adi from [DATA$];", conn, 1, 3
ComboBox1.Column = rs.getrows
rs.Close
rs.Open "select distinct Ogrenci_No from [DATA$];", conn, 1, 3
ComboBox2.Column = rs.getrows
rs.Close
rs.Open "select distinct Sinifi from [DATA$];", conn, 1, 3
ComboBox3.Column = rs.getrows
rs.Close
conn.Close
Set rs = Nothing: Set conn = Nothing
Ayrıca ben tarih ve tckimlik içeren bir sütün girdiğimde "Girdiğiniz değer bu tablo veya listede tanımlı ayarları ihlal ettiğinden...." gibi bir uyarı alıyorum

Son olarak hücrelerde boşluk varsa yine hata veriyor

Bu konuda da yardımcı olursanız sevinirim
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,239
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
tigiy' Alıntı:
Süpersiniz hocam elinize sağlık çok güzel çalışıyor ancak bir kaç sorum daha var.
Bu kısmı anlayamadım
Kod: 
Loop
rs.Close
rs.Open "select distinct Ogrenci_Adi from [DATA$];", conn, 1, 3
ComboBox1.Column = rs.getrows
rs.Close
rs.Open "select distinct Ogrenci_No from [DATA$];", conn, 1, 3
ComboBox2.Column = rs.getrows
rs.Close
rs.Open "select distinct Sinifi from [DATA$];", conn, 1, 3
ComboBox3.Column = rs.getrows
rs.Close
conn.Close
Set rs = Nothing: Set conn = Nothing
Ayrıca ben tarih ve tckimlik içeren bir sütün girdiğimde "Girdiğiniz değer bu tablo veya listede tanımlı ayarları ihlal ettiğinden...." gibi bir uyarı alıyorum

Son olarak hücrelerde boşluk varsa yine hata veriyor

Bu konuda da yardımcı olursanız sevinirim
Genişletmek için tıkla ...
Nereye sütun giriyorsunuz?Sayfada yeni bir sütunmu oluşturuyorsunuz?
Bunu yaparsanız kodlardada değişiklik yapmak gerekiyor.Veri tabanını baştan tasarlamak gerekiyor.Sonradan ilaveler yapmak sorun oluşturur.:cool:
Sayı textboxlarına boşluk girerseniz kodlar bunu kabul etmez.Çünkü sayı ve tarih alanlarına boşluk girilemez.:cool:
 
T

tigiy

Katılım
31 Aralık 2013
Mesajlar
138
Excel Vers. ve Dili
2019-Türkçe
Altın Üyelik Bitiş Tarihi
11-09-2025
Orion1' Alıntı:
Nereye sütun giriyorsunuz?Sayfada yeni bir sütunmu oluşturuyorsunuz?
Bunu yaparsanız kodlardada değişiklik yapmak gerekiyor.Veri tabanını baştan tasarlamak gerekiyor.Sonradan ilaveler yapmak sorun oluşturur.:cool:
Sayı textboxlarına boşluk girerseniz kodlar bunu kabul etmez.Çünkü sayı ve tarih alanlarına boşluk girilemez.:cool:
Genişletmek için tıkla ...
Hocam ben veri tabanını genişlettim sizin verdiğiniz örneklerden yararlandım. Şuan değiştirme silme kaydetme ekleme yapabiliyorum. Şuan tek sorunum ilk örnekte verdiğim gibi arama yapamıyorum. Kullanıdğım kod aşağıda.

Kod: 
On Error Resume Next
Dim con As Object, rs As Object, strsql As String
Dim ktipi1
ktipi1 = "Çalışan"
ListView1.ListItems.Clear
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open = "Provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook.Path & "\Database.xlsb;extended properties=""excel 12.0;hdr=Yes"";"
strsql = "select * from [DATA$] where KİŞİ_TİPİ='" & ktipi1 & "' and BİRİM_ADI like '" & birimcbox.Value & "%'"
strsql = strsql & " and ADI_SOYADI=" & adsoyadcbox.Value & "%'"
strsql = strsql & " and TCKİMLİK_NO=" & tckimliktbox.Value & "%'"
strsql = strsql & " and GÖREV_ÜNVAN=" & unvancbox.Value & "%'"
strsql = strsql & " and KİŞİ_TİPİ=" & kisitipicbox.Value & "%'"
strsql = strsql & " and İŞE_GİRİŞ_TARİHİ=" & isegiristbox.Value & "%'"
strsql = strsql & " and İŞTEN_AYRILIŞ_TARİHİ=" & istenayrilistbox.Value & "%'"
strsql = strsql & " and İŞTEN_AYRILIŞ_NEDENİ=" & ayrilisnedenicbox.Value & "%'"
strsql = strsql & " and ÇALIŞTIĞI_SÜRE=" & calismasüresitbox.Value & "%'"
strsql = strsql & " and ADRES=" & adrestbox.Value & "%'"
strsql = strsql & " and EV_TELEFONU=" & evteltbox.Value & "%'"
strsql = strsql & " and CEP_TELEFONU=" & cepteltbox.Value & "%'"
strsql = strsql & " and İLGİLİ_KİŞİ=" & ilgilikisitbox.Value & "%'"
strsql = strsql & " and GÜNCEL_MAAŞ=" & guncelmaastbox.Value & "%'"
strsql = strsql & " and BİR_ÖNCEKİ_MAAŞ=" & oncekimaastbox.Value & "%'"
strsql = strsql & " and BAŞVURU_FORMU=" & basvuruformucbox.Value & "%'"
strsql = strsql & " and İŞE_GİRİŞ_BİLDİRGESİ=" & isegirisbildirgesicbox.Value & "%'"
strsql = strsql & " and SÖZLEŞME=" & sozlesmecbox.Value & "%'"
strsql = strsql & " and MUVAFAKATNAME=" & muvafakatnamecbox.Value & "%'"
strsql = strsql & " and AİLE_DURUM_BİLDİRİMİ=" & agicbox.Value & "%'"
strsql = strsql & " and İSG_TALİMATI=" & isgcbox.Value & "%'"
strsql = strsql & " and FOTOĞRAF_6_ADET=" & fotografcbox.Value & "%'"
strsql = strsql & " and NÜFUS_FOTOKOPİSİ=" & nufusfotokopicbox.Value & "%'"
strsql = strsql & " and VUKUATLI_NÜFÜS_KAYIT_ÖRNEĞİ=" & vukuatlicbox.Value & "%'"
strsql = strsql & " and İKAMETGAH_BELGESİ=" & ikametgahcbox.Value & "%'"
strsql = strsql & " and SABIKA_KAYDI=" & sabikakaydicbox.Value & "%'"
strsql = strsql & " and ÖĞRENİM_BELGESİ=" & ogrenimbelgesicbox.Value & "%'"
strsql = strsql & " and TERHİS_BELGESİ=" & terhisbelgesicbox.Value & "%'"
strsql = strsql & " and EHLİYET=" & ehliyetcbox.Value & "%'"
strsql = strsql & " and SRC=" & srccbox.Value & "%'"
strsql = strsql & " and PSİKOTEKNİK=" & psikoteknikcbox.Value & "%'"
strsql = strsql & " and KARAKOL=" & karakolcbox.Value & "%'"
strsql = strsql & " and EK_PROTOKOL=" & ekprotokolcbox.Value & "%'"
strsql = strsql & " and AKCİĞER_GRAFİSİ=" & akcigercbox.Value & "%'"
strsql = strsql & " and HEMOGRAM=" & hemogramcbox.Value & "%'"
strsql = strsql & " and SOLUNUM_FONKSİYON_TESTİ=" & solunumcbox.Value & "%'"
strsql = strsql & " and ODYOMETRİ=" & odyometricbox.Value & "%'"
strsql = strsql & " and LUMBO_SACRAL_GRAFİ=" & lumbocbox.Value & "%'"
strsql = strsql & " and GÖZ_MUAYENESİ=" & gozcbox.Value & "%'"
strsql = strsql & " and PERİYODİK_MUAYENE_FORMU=" & periyodikcbox.Value & "%'"

rs.Open strsql, con, 1, 3
If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
    say = say + 1
    ListView1.ListItems.Add , , rs("ID").Value
    ListView1.ListItems(say).SubItems(1) = rs("BİRİM_ADI")
    ListView1.ListItems(say).SubItems(2) = rs("ADI_SOYADI")
    ListView1.ListItems(say).SubItems(3) = rs("TCKİMLİK_NO")
    ListView1.ListItems(say).SubItems(4) = rs("GÖREV_ÜNVAN")
    ListView1.ListItems(say).SubItems(5) = rs("KİŞİ_TİPİ")
    ListView1.ListItems(say).SubItems(6) = rs("İŞE_GİRİŞ_TARİHİ")
    ListView1.ListItems(say).SubItems(7) = rs("İŞTEN_AYRILIŞ_TARİHİ")
    ListView1.ListItems(say).SubItems(8) = rs("İŞTEN_AYRILIŞ_NEDENİ")
    ListView1.ListItems(say).SubItems(9) = rs("ÇALIŞTIĞI_SÜRE")
    ListView1.ListItems(say).SubItems(10) = rs("ADRES")
    ListView1.ListItems(say).SubItems(11) = rs("EV_TELEFONU")
    ListView1.ListItems(say).SubItems(12) = rs("CEP_TELEFONU")
    ListView1.ListItems(say).SubItems(13) = rs("İLGİLİ_KİŞİ")
    ListView1.ListItems(say).SubItems(14) = rs("GÜNCEL_MAAŞ")
    ListView1.ListItems(say).SubItems(15) = rs("BİR_ÖNCEKİ_MAAŞ")
    ListView1.ListItems(say).SubItems(16) = rs("BAŞVURU_FORMU")
    ListView1.ListItems(say).SubItems(17) = rs("İŞE_GİRİŞ_BİLDİRGESİ")
    ListView1.ListItems(say).SubItems(18) = rs("SÖZLEŞME")
    ListView1.ListItems(say).SubItems(19) = rs("MUVAFAKATNAME")
    ListView1.ListItems(say).SubItems(20) = rs("AİLE_DURUM_BİLDİRİMİ")
    ListView1.ListItems(say).SubItems(21) = rs("İSG_TALİMATI")
    ListView1.ListItems(say).SubItems(22) = rs("FOTOĞRAF_6_ADET")
    ListView1.ListItems(say).SubItems(23) = rs("NÜFUS_FOTOKOPİSİ")
    ListView1.ListItems(say).SubItems(24) = rs("VUKUATLI_NÜFÜS_KAYIT_ÖRNEĞİ")
    ListView1.ListItems(say).SubItems(25) = rs("İKAMETGAH_BELGESİ")
    ListView1.ListItems(say).SubItems(26) = rs("SABIKA_KAYDI")
    ListView1.ListItems(say).SubItems(27) = rs("ÖĞRENİM_BELGESİ")
    ListView1.ListItems(say).SubItems(28) = rs("TERHİS_BELGESİ")
    ListView1.ListItems(say).SubItems(29) = rs("EHLİYET")
    ListView1.ListItems(say).SubItems(30) = rs("SRC")
    ListView1.ListItems(say).SubItems(31) = rs("PSİKOTEKNİK")
    ListView1.ListItems(say).SubItems(32) = rs("KARAKOL")
    ListView1.ListItems(say).SubItems(33) = rs("EK_PROTOKOL")
    ListView1.ListItems(say).SubItems(34) = rs("AKCİĞER_GRAFİSİ")
    ListView1.ListItems(say).SubItems(35) = rs("HEMOGRAM")
    ListView1.ListItems(say).SubItems(36) = rs("SOLUNUM_FONKSİYON_TESTİ")
    ListView1.ListItems(say).SubItems(37) = rs("ODYOMETRİ")
    ListView1.ListItems(say).SubItems(38) = rs("LUMBO_SACRAL_GRAFİ")
    ListView1.ListItems(say).SubItems(39) = rs("GÖZ_MUAYENESİ")
    ListView1.ListItems(say).SubItems(40) = rs("PERİYODİK_MUAYENE_FORMU")
    rs.movenext

Loop
rs.Close: con.Close
Set rs = Nothing: Set con = Nothing
Burada cpu kullanımı%50 lere çıkyor excel kilitleniyor. Sorun nerede acaba
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst