Sütun indeks nosunu girerek Sütun harfini bulma

[hsayar]

Sütun indeks, numaramız
1 ise A
2 ise B
5 ise C
26 ise Z
27 İSE AA

diye excelde döndürme imkanımız varmı

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

MsgBox Columns(1).Address(0, 0)

 

[hsayar]

hocam kodlar A:A olaak dönüyor ben biraz revize ettim ve a sonucunu aldım

Sub aaa()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")

aa = 5
sut_bas5 = Left(Columns(aa).Address(0, 0), 1)
s1.Range("e8") = "aaa"
ccc = sutbas5 & "5"
s1.Range(sut_bas5 & 5) = "aaa"
MsgBox sut_bas5
End Sub

pardon yanlışlık yapmışım peki sütun başlığının girerek index nosu öğrenilebilirmi

bazen öyle dumlar oluyorki range("A5") yerine Cellss (5,1) kullanılamıyor

range içinde a yı değişken olduğunu nasıl anlatırız.

 

[Merhum İdris SERDAR]

Formülle isterseniz, aşağıdaki formülleri kulanabilirsiniz.

A1 hücresinde sütun sayısı varsa, sütun harfini bulmak için:

=IF(A1<=26;MID("ABCDEFGHIJKLMNOPQRSTUVWXYZ";A1;1);MID("ABCDEFGHIJKLMNOPQRSTUVWXYZ";INT((A1-1)/26);1)&MID("ABCDEFGHIJKLMNOPQRSTUVWXYZ";MOD(A1-1;26)+1;1))

A1 h&#252;cresinde s&#252;tun harfi varsa,s&#252;tun say&#305;s&#305;n&#305; bulmak i&#231;in:

=IF(LEN(A1)>1;(26*(CODE(LEFT(UPPER(A1);1))-64))+CODE(RIGHT(UPPER(A1);1))-64;CODE(UPPER(A1))-64)





.

 

[Levent Menteşoğlu]

cells(5,aa) &#351;eklinde kullanabilirsiniz.

 

[hamitcan]

Bir tane de benden.

Sub kolonismi()
MsgBox Split(Columns(2).Address, ":$")(1)
End Sub

 

[hsayar]

te&#351;ekk&#252;rler hamitcan bu daha iyimi&#351;
peki tersi m&#252;mk&#252;n m&#252; a girip 1 sonucunu almak ac girip 29 sonucunu almak

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub kolonnumarasi()
MsgBox Columns("c").Column
End Sub

 

[hsayar]

te&#351;ekk&#252;rler

 

[hsayar]

te&#351;ekk&#252;r ederim hocam

 

[Ali]

E değeri 5 olarak görmek için

Function Sütundegeri(hucreStr As String) As Integer
      yStr = hucreStr & "1"
    Sütundegeri = Range(yStr).Column
End Function

=Sütundegeri(A1) olarak kullanın.


27 değerini AA olarak görmek için

Function Sütunadi(Sutunharf As Integer) As String
    yStr = Cells(1, Sutunharf)
    Sütunadi = Mid(Left(Cells(1, Sutunharf).Address, Len(Cells(1, Sutunharf).Address) - 2), 2, 2)
End Function

=Sütunadi(A1) olarak kullanın.

 

[hsayar]

hocam he&#287;inize ayr&#305; ayr&#305; te&#351;ekk&#252;r ederim bilgiler tek ba&#351;&#305;na hepsi yararl&#305; ancak ben bunlar&#305; harmanlayp istedi&#287;im sonuca gidemedim

diyelimki
e5 h&#252;cresin A de&#287;erini girdim
e6 ya
"= Fonksiyon(e5)+1" girdi&#287;imde B,
"= Fonksiyon(e5)+3" girdi&#287;imde d,
g&#246;rmek istiyorum

nas&#305;l olmal&#305;

 

[Ali]

"= Fonksiyon(e5)+1" girdiğimde B,

=Sütunadi(Sütundegeri(E5)+1)

"= Fonksiyon(e5)+3" girdiğimde d,
görmek istiyorum

nasıl olmalı

=Sütunadi(Sütundegeri(E5)+3)

yazarak kullanın.

 

[hsayar]

te&#351;ekk&#252;r ederim say&#305;n ali

 

[hsayar]

Function HucreAdres(Rng As Range) As String
snc = Sutunadi(Rng.Column) & Rng.Row
HucreAdres = snc
End Function
'c5 gibi döner

Function Sutunadi(Sutunharf As Integer) As String
    yStr = Cells(1, Sutunharf)
    Sutunadi = Mid(Left(Cells(1, Sutunharf).Address, Len(Cells(1, Sutunharf).Address) - 2), 2, 2)
End Function
Function Sutundegeri(hucreStr As String) As Integer
      yStr = hucreStr & "1"
    Sütundegeri = Range(yStr).Column
End Function

 

[BedriA]

Bir tane de benden.

Sub kolonismi()
MsgBox Split(Columns(2).Address, ":$")(1)
End Sub

Hamit Hocam,

Kırmızı kısma değişken atanabilir mi?
Oluyorsa nasıl?

Yardımcı olabilir misiniz?

Sub Makro3()
MsgBox Split(Columns([COLOR="Red"]17[/COLOR]).Address, ":$")(1)
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Sütun_Harfi_Bul()
    No = Application.InputBox("Lütfen sütun numarasını giriniz!", "Sütun Numarası")
    If No = False Or No = Empty Then Exit Sub
    
    MsgBox Split(Columns(Val(No)).Address, ":$")(1)
End Sub

 

[BedriA]

Deneyiniz.

Sub Sütun_Harfi_Bul()
    No = Application.InputBox("Lütfen sütun numarasını giriniz!", "Sütun Numarası")
    If No = False Or No = Empty Then Exit Sub
    
    MsgBox Split(Columns(Val(No)).Address, ":$")(1)
End Sub

Çok sağolun Korhan hocam.

Bu kod ile sütuna ait harfi bulduk.
Şimdi ben bulduğum sütunu, kodun devamında kopyalayıp sadece değerlerini yapıştırmak istiyorum.

"Columns" a nasıl değişken atayacağımı bilmiyorum.

 

[hamitcan]

Hamit Hocam,

Kırmızı kısma değişken atanabilir mi?
Oluyorsa nasıl?

Yardımcı olabilir misiniz?

Sub Makro3()
MsgBox Split(Columns([COLOR="Red"]17[/COLOR]).Address, ":$")(1)
End Sub

Sub Makro3()
    For i = 1 To 2
        MsgBox Split(Columns(i).Address, ":$")(1)
    Next
End Sub

 

[BedriA]

Sub Makro3()
    For i = 1 To 2
        MsgBox Split(Columns(i).Address, ":$")(1)
    Next
End Sub

Teşekkür ederim Hamit Hocam.