Sayın Üstatlar,
Sitedeki tüm açılır dosya sorularını inceledim ama istediğimi bulamadım.
Kapalı dosyadaki A sütunundaki verileri başka bir dosyada açılır liste ile görüntüleyebilir miyiz?
Kapalı dosya devamlı güncelleniyor ve A sütunundaki veriler aşağı doğru uzayabilir dolayısı ile açılır listede kaynak için uygun bir komut nasıl yazılacak , A1:A1000 yazmak istemiyorum çünkü açılır liste sonunda boşluklar oluyor.
2.aşamada ise açılır listeden seçim yaptığımda örneğin A21 seçtim ve B21 ile C21 deki verileri de düşey aradaki gibi getirmem gerekli.
Kapalı Dosyadan Düşey arama ile ilgili bir örnek buldum.
Aşağıdaki kodları düzenleyip yukarıdaki soruma uygun hale getirebilir miyiz?
Function KapDuseyAra(KapDosya As String, SayfaAdi As String, _
BakilanAlan As String, _
ArananDeger As Variant, _
SonucAlani As String) As Variant
Dim adoCN As ADODB.Connection
Dim strSQL As String
Dim adoRS As ADODB.Recordset
Set adoCN = New Connection
adoCN.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & KapDosya & ";Readonly=True"
Set adoRS = New ADODB.Recordset
If Not IsNumeric(ArananDeger) Then ArananDeger = "'" & ArananDeger & "'"
strSQL = "SELECT " & BakilanAlan & ", " & SonucAlani & _
" FROM [" & SayfaAdi & "$]" & _
" WHERE " & BakilanAlan & "=" & ArananDeger & ";"
adoRS.Open strSQL, adoCN, adOpenStatic
If adoRS.BOF And adoRS.EOF Then
KapDuseyAra = "Deger bulunamadi"
Else
KapDuseyAra = adoRS.Fields(SonucAlani).Value
End If
adoRS.Close
adoCN.Close
End Function
Cevap gelse de gelmese de böyle bir sitenin varlığı da yeter
Teşekkürler
Sitedeki tüm açılır dosya sorularını inceledim ama istediğimi bulamadım.
Kapalı dosyadaki A sütunundaki verileri başka bir dosyada açılır liste ile görüntüleyebilir miyiz?
Kapalı dosya devamlı güncelleniyor ve A sütunundaki veriler aşağı doğru uzayabilir dolayısı ile açılır listede kaynak için uygun bir komut nasıl yazılacak , A1:A1000 yazmak istemiyorum çünkü açılır liste sonunda boşluklar oluyor.
2.aşamada ise açılır listeden seçim yaptığımda örneğin A21 seçtim ve B21 ile C21 deki verileri de düşey aradaki gibi getirmem gerekli.
Kapalı Dosyadan Düşey arama ile ilgili bir örnek buldum.
Aşağıdaki kodları düzenleyip yukarıdaki soruma uygun hale getirebilir miyiz?
Function KapDuseyAra(KapDosya As String, SayfaAdi As String, _
BakilanAlan As String, _
ArananDeger As Variant, _
SonucAlani As String) As Variant
Dim adoCN As ADODB.Connection
Dim strSQL As String
Dim adoRS As ADODB.Recordset
Set adoCN = New Connection
adoCN.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & KapDosya & ";Readonly=True"
Set adoRS = New ADODB.Recordset
If Not IsNumeric(ArananDeger) Then ArananDeger = "'" & ArananDeger & "'"
strSQL = "SELECT " & BakilanAlan & ", " & SonucAlani & _
" FROM [" & SayfaAdi & "$]" & _
" WHERE " & BakilanAlan & "=" & ArananDeger & ";"
adoRS.Open strSQL, adoCN, adOpenStatic
If adoRS.BOF And adoRS.EOF Then
KapDuseyAra = "Deger bulunamadi"
Else
KapDuseyAra = adoRS.Fields(SonucAlani).Value
End If
adoRS.Close
adoCN.Close
End Function
Cevap gelse de gelmese de böyle bir sitenin varlığı da yeter
Teşekkürler