seçili hücrenin satır, sütun sayılarını bir değişkene eşlemek

[alicewik]

seçili hücrenin satır sayısnı bir değişkene sütun sayısnı diğier bir değişkene eşitlemek itiorum yanı seçili hücre d3 ise a=3 b=4 sonucunu elde edebılmek ısııorum. yardımcı olursanız sevınırım. birde o seçili hücre iki ardışık hücrenin birleştirilmesinden oluşturulmuşsa sorun yaratırmı programın çalışmasında.

 

[Orion1]

Sub hucre()
MsgBox "Satır : " & vbTab & ActiveCell.Row & _
vbLf & "Sütun : " & vbTab & ActiveCell.Column
End Sub

 

[alicewik]

teşekkür ederim daha denemedim ama deniycem şimdi.

 

[ozgretmen]

Alternatif olsun...
Aşağıdaki kodu sayfanızın kod bölümüne ekleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
satir = ActiveCell.Row
sütun = ActiveCell.Column
MsgBox "Satır :" & satir & "  |  " & "Sütun :" & sütun
End Sub

 

[slcnrtm]

hucredeki sayi degerini kullanma

macro ve vb ile yazmak istedigim bir program var ancak bir noktada takildim.
excel sayfasi icerisinde (asagidaki tabloda) 369 rakami bulunan hucreyi (A3) okutup bu rakami (sayi degeri olarak) daha sonraki asamada kullanmak istiyorum. daha sonraki asamada ise; bu deger kendisinden (369) sonraki bana gerekli olan satir sayisini gosteriyor (tabiki ustteki 3 hucreyide eklemem gerekecek yani benim bulmasini istedigim satir nosu bu durumda 369+3 olucak. ve bu durumda ben A372 nolu hucreyi bulacak (icerigi '18' olan hucreyi bulacak). ve tekrar ben bu hucrede bulunacak olan 18' i kullanarak bir sonraki asamaya gececegim. bunu macroda eminim yaptirabiliriz ama nasil?

biraz karmasik oldu galiba ama en basit aciklama ile hedef hucre icindeki sayi degerini kullanarak bir sonraki hedef hucreye gecis yapmak istiyorum.
yardiminiz icin simdiden tesekkurler.

11.879 2165 0.35 1 0.127
1430
369 2 Frequency Phase
0 20.3 0
100 17.4 -1.5
200 14.1 -3.2
300 10.4 -4.9
.
.
36800 -139.6 13.3
6100 36800
18 1 Wavelength
0.183 10.27
0.173 10.32
0.162 10.4
0.152 10.49
0.142 10.6
0.131 10.7

 

[Orion1]

Önce a3 hücresini seçiniz. Dağa sonra aşğıdaki kodu çalıştırınız.
İlgili hücreyi seçer.

Sub sayisec()
Dim satir As Long
basla:
satir = ActiveCell.Value + ActiveCell.Row
If satir >= 65535 Then
    MsgBox "Satır sayısını aştı..!!", vbCritical, "UYARI"
    Range("A3").Select
    Else
    Range("A" & satir).Select
End If
End Sub

 

[alicewik]

Alternatif olsun...
Aşağıdaki kodu sayfanızın kod bölümüne ekleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
satir = ActiveCell.Row
sütun = ActiveCell.Column
MsgBox "Satır :" & satir & "  |  " & "Sütun :" & sütun
End Sub

çok teşşekkür ediorum tabi cevap yazan diğer arkadaşlarımada ama bu çok basitleştirdi olayı istediğim bir değişkene tercihe göre seçili hücrenin satır sayısını yda sütün sayısını aktarmaktı bunuda başardım ve gerçekten çok basit oldu;
sub düğme1_Tıklat()
dim a
a=activecell.row
... yazmam "a" değişkenine seçili hücrenin satır sayısını aktarmama yetti. tekrar saolun..

 

[ozgretmen]

çok teşşekkür ediorum tabi cevap yazan diğer arkadaşlarımada ama bu çok basitleştirdi olayı istediğim bir değişkene tercihe göre seçili hücrenin satır sayısını yda sütün sayısını aktarmaktı bunuda başardım ve gerçekten çok basit oldu;
sub düğme1_Tıklat()
dim a
a=activecell.row
... yazmam "a" değişkenine seçili hücrenin satır sayısını aktarmama yetti. tekrar saolun..

Faydalı olabildimse ne güzel....İyi çalışmalar...

 

[slcnrtm]

cevabiniz icin tesekkur ederim.

Önce a3 hücresini seçiniz. Dağa sonra aşğıdaki kodu çalıştırınız.
İlgili hücreyi seçer.

Sub sayisec()
Dim satir As Long
basla:
satir = ActiveCell.Value + ActiveCell.Row
If satir >= 65535 Then
    MsgBox "Satır sayısını aştı..!!", vbCritical, "UYARI"
    Range("A3").Select
    Else
    Range("A" & satir).Select
End If
End Sub