Fonksiyonda hücre adresi girişi hk.

[tamer42]

Merhabalar,

Sayfa Adı ile Hücre adresini birleştirerek yazacak bir fonksiyon hazırlamaya çalışıyorum

Sayfa Adı: Sayfa2
Hücre Adresi: H12

formatındaki verileri manuel olarak gireceğim ve bana Sayfa2$H12 formatında sonuç verecek,

burada hücre adresi olan H12 ifadesini " " içerisine kendisi almıyor. Ben "H12" olarak yazdığımda ancak sonuca ulaşabiliyorum.

Bu sıkıntıyı aşmam için Nasıl bir düzenleme yapmam gerekir?

Function SheetRangeWB(sSheet As String, SRange As String)

ShRange = sSheet & "$" & SRange
SheetRangeWB = ShRange
End Function

İyi Çalışmalar.

 

[Orion1]

Aşağıdaki gibi deneyiniz.

Function SheetRangeWB(sSheet As String, SRange As String)

SheetRangeWB = sSheet & "!$" & SRange
End Function

 

[tamer42]

Merhabalar,

burada H12 yazdığımda H12 hücresindeki yazan değeri almak istiyor,

Ben ise H12 ifadesini hücre olarak değilde; bir değişken olarak awedfgh gibi görünmesini istiyorum.

Bu nedenle SRange As String olarak belirtmiştim.


İyi Çalışömalar.

 

[Orion1]

Merhabalar,

burada H12 yazdığımda H12 hücresindeki yazan değeri almak istiyor,

Ben ise H12 ifadesini hücre olarak değilde; bir değişken olarak awedfgh gibi görünmesini istiyorum.

Bu nedenle SRange As String olarak belirtmiştim.


İyi Çalışömalar.

Ne yapmak istediğinizi anlayamadım.Dağa açık yazarmısınız?
hücredeki formüle sayfa1;H12 yazdığınızda ne görmek istiyorsunuz?

 

[Ayhan Ercan]

Ne yapmak istediğinizi anlayamadım.Dağa açık yazarmısınız?
hücredeki formüle sayfa1;H12 yazdığınızda ne görmek istiyorsunuz?

Kodların tamamını vermemiş.. Tamamı olsa, sorunda anlaşılacaktır herhalde..

Function SheetRangeWB(sSheet As String, SRange As String)

?????????????????
?????????????????
?????????????????

ShRange = sSheet & "$" & SRange
SheetRangeWB = ShRange
End Function​

 

[tamer42]

Merhablar,

Ben dünden bu yana fonksiyonu epey geliştirdim, yalnız bu Hücre girişi konusunda sıkıntı devam ediyor.
Amacım kapalı dosyadan veri alcak bir fonksiyon oluşturmak.

Function GetReadDataFromWBook(sSheet, SRange1, SRange2 As String)
Dim ShRange As String
Dim sRange As String
Dim ShFile As String
Dim tArray As Variant


sRange = SRange1 & ":" & SRange2

ShRange = sSheet & "$" & sRange

ShFile = "C:\Folder\Database.xls"

tArray = ReadDataFromWBook(ShFile, ShRange)

GetReadDataFromWBook = tArray(0, 0)

End Function

Function ReadDataFromWBook(SourceFile As String, SourceRange As String) As Variant

Dim db
Dim dbConnection As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dbConnectionString As String

    dbConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & SourceFile
    Set dbConnection = New ADODB.Connection
    On Error GoTo InvalidInput
    dbConnection.Open dbConnectionString ' open the database connection
      
   Set rs = dbConnection.Execute("[" & SourceRange & "]")
    On Error GoTo 0
    
   ReadDataFromWBook = rs.GetRows
   
    rs.Close
    dbConnection.Close ' close the database connection
    Set rs = Nothing
    Set dbConnection = Nothing
    On Error GoTo 0
    Exit Function
    
InvalidInput:
      
    Set rs = Nothing
    Set dbConnection = Nothing
End Function

İyi Çalışmalar.