Aralik.address kırpma

[hsayar]

girdiğimiz Aralığın ilk kısmını ve son kısmını kırpma nasıl olmalıdır.

Mesala "KODLAR!$B$18:$B$31" dizisinden;
B18 i nasıl alabilirim.
B31 i nasıl alabilirim.

Sub AralıkBilesen21()
Sub AralıkBilesen21()
'Set Aralik = ThisWorkbook.Sheets("FncHsr_X(Kılavuzu)").Range("c2:c20")
Set Aralik = Range("b18:b31") 'Range(Cells(3, 2), Cells(31, 2))
Dim wb As Workbook
Dim ws As Worksheet
Set ws = Aralik.Parent
Set wb = ws.Parent
AralıkBilesenaaaa = "Kitap: " & wb.Name & " Sayfa:" & ws.Name & "   Erim: " & Aralik.address
MsgBox AralıkBilesenaaaa
Set ws = Nothing
Set wb = Nothing
End Sub

 

[Ferhat Pazarçevirdi]

Aşağıdaki makro size bir fikir verebilir. Aralığı, siz istediğiniz gibi değiştirin.

Sub Araliktaki_Ilk_ve_Son_Hucreleri_Bul()
    
    Dim rg As Range
    
    Set rg = Range("A18:C152")
    With rg
        MsgBox "İlk Hücre : " & Cells(.Row, .Column).Address & vbLf & _
               "Son Hücre : " & Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).Address
    End With
    Set rg = Nothing
End Sub

 

[hsayar]

ferhat hocam alakanıza teşekkür ederim şimdi ki sorum şu

Function AraliktaİlkveSonHucre(Aralik As Range)
    With Aralik
   '     AraliktaİlkveSonHucre = "İlk Hücre : " & Cells(.Row, .Column).address & vbLf & _
               "Son Hücre : " & Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).address
    AraHucIlk = Cells(.Row, .Column).address
    AraHucSon = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).address
    End With
    AraliktaİlkveSonHucre = AraHucIlk
    Set Aralik = Nothing
 
End Function

AraHucIlk hücresinin değerini nasıl tespit ederiz?
Yani AraHucIlk.value

 

[Ferhat Pazarçevirdi]

Kodlarınızda; "AraHucIlk=..... "yazan eşitliğin sağındaki ".address" yazan kısmı silin (veya yerine ".Value" yazın)

 

[hsayar]

teşekkürler hocam

 

[hsayar]

hocam şöyle bir sorun var, fonksiyonumuzu tanımladık ve yeni bir çalışma kitabının
sayfa2 sinin a sütuna AAAAA yazdık
sayfa1 inin a sütuna BBBBB yazdık
sayfa1, b1 hücresine =AraliktaİlkveSonHucre(Sayfa2!A1:A1)

yazdık ancak bize sonuç olarak "bbbb" döndürdü nasıl düzeltebiliriz?

Function AraliktaİlkveSonHucre(Aralik As Range)
    With Aralik
   '     AraliktaİlkveSonHucre = "İlk Hücre : " & Cells(.Row, .Column).address & vbLf & _
               "Son Hücre : " & Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).address
    AraHucIlk = Cells(.Row, .Column).Value
    AraHucSon = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).address
    End With
    AraliktaİlkveSonHucre = AraHucIlk
    Set Aralik = Nothing
End Function

 

[hsayar]

sn hocam http://www.excel.web.tr/showpost.php?p=300842&postcount=12 ilişimindeki koda bağlamıya çalışıyorum. Unutmadan söyleyeyim.

 

[Ferhat Pazarçevirdi]

O şekilde döndürmesi gayet normal, çünkü biz kodlarda, sayfa referansını kullanmadık.

Aşağıdaki kodu deneyin.

Function AraliktaİlkveSonHucre(Aralik As Range)
    With Aralik
        AraliktaİlkveSonHucre = .Worksheet.Cells(.Row, .Column).Value
    End With
End Function

 

[hsayar]

Elinize sağlık
hocam ya başka kitaptan alırsak o zaman ne yapacağız ?

 

[Ferhat Pazarçevirdi]

Başka kitaptan bir araliği; fonksiyona referans göstererek denediniz mi hiç?

 

[hsayar]

Başka kitaptan bir araliği; fonksiyona referans göstererek denediniz mi hiç?

denedim hocam sorun yok, "sayfa referansını kullanmadık" sözünüze istinaden kafadan sormuştum.
elinize sağlık.

 

[hsayar]

Benzersiz kayıtlar fonksiyonunda hücre aynı hücreye müracaat esede sorun çıkartmıyor artık.
http://www.excel.web.tr/showpost.php?p=300876&postcount=13