satırdaki dolu olan ilk hücrenin değeri

[snx111]

satır 5 teki c5 ten c 24 de kadar olan aralıkta dolu olan ilk hücrenin değerini

ve son hücrenin degerini makroda nasıl yazabilirim ?

Private Sub CommandButton1_Click()

hilk = Range("c5:c25").End(3).Row
hson = Range("c5:c24").End(2).Row + 1
Range("k7") = hilk + hson

end sub ? nerde hata var ?

 

[f_desat]

bu şekilde denermisiniz.

Range("C5").Select
Selection.End(xlDown).Select
hilk = ActiveCell.Value 'Range("c5:c25").End(3).Row
hson = Range("c5:z24").End(2).Row + 1
Range("k7") = hilk + hson

 

[Murat OSMA]

Ne yapmak istediğinizi tam bilmiyorum ama, verdiğiniz koda göre şunu bir deneyiniz;

[SIZE="2"]Private Sub CommandButton1_Click()
    hson = Range("C25").End(3).Row
    hilk = Range("Z1").End(4).Row
    Range("k7") = hilk + hson
End Sub[/SIZE]

 

[snx111]

2 + 2 4 değilde niye 8 gösteriyor

 

[Murat OSMA]

Sinan Bey, benim kodlarla alakasız kodlar kullandığınız için ben yorum yapmak istemiyorum...
Üstelik dosya ile ilk mesajınızı ilişkilendiremedim...

 

[snx111]

sizin kodlar makroda işte ? anlayamadım ?? ne demek istiyorsun ...
win butonuna basınca 5 ci satırdaki ilk ve son hücre k 10 veya k7 de toplanacak bundan ibaret

 

[snx111]

sayı dizisi programı yapmaya çalışıyorum sınırsız yazı tura atılacak

win kazanann lose kaybeden
kazanınca baştaki ve sondaki rakamlar silinecek bu

 

[Murat OSMA]

Kusura bakmayın Sinan Bey, arkadaşlar yardımcı olacaklardır...

İyi akşamlar...

 

[Korhan Ayhan]

Merhaba,

Soruyu karmaşık hale getirmek için elinizden geleni yapmışsınız.

Sorunuz bence aşağıdaki gibi olmalıydı;

C5:Z5 hücre aralığında ilk dolu ve son dolu hücreyi tesbit edip bu iki hücredeki değerin toplamını başka bir hücrede göstermek istiyorum.

Bu şekilde sorsaydınız eminim ki daha net cevaplar alabilecektiniz.

Buradan şu sonuç çıkmalı;

Forumda yazdığınız her kelime-cümle ve ayrıca gösterdiğiniz özen sorunuzu cevaplamak isteyen üyeleri yönlendirmektedir.


Aşağıdaki kod ile istediğiniz sonuca ulaşabilirsiniz.

Sub Makro1()
    İlk = Evaluate("=MIN(IF(C5:Z5>0,COLUMN(C5:Z5)))")
    Son = Evaluate("=MAX(IF(C5:Z5>0,COLUMN(C5:Z5)))")
    Range("K7") = Cells(5, İlk) + Cells(5, Son)
End Sub

 

[snx111]

aramalarda çıkmıyor ve 30 saniye barajı koymuşşunuz ?

makro çalışıyor ama bana lazım olan selection lu olması satır 5 teki dolu dolu olan ilk hücreyi seçip renklendirmem gerek renk konusunu hallederim ama selection yaptıramıyorum bi yardım

 

[Korhan Ayhan]

Merhaba,

Seçim yapmadan da renklendirme yapabilirsiniz.

Cells(5, İlk).Interior.Colorindex = 6

 

[snx111]

satır 5 teki ilk dolu olan hücreyi seç ve aynı satırdaki dolu olan son hücreyiseç makrosu lazım

 

[Husgvarna]

satır 5 teki ilk dolu olan hücreyi seç ve aynı satırdaki dolu olan son hücreyiseç makrosu lazım

Merhaba.
"B" Sütununda:

İlk dolu satır no için:

a = Range("b1:b" & Cells(65000, 2).End(xlUp).Row).End(xlDown).Row

Aynı satırda son dolu sütun no için:

 b = Range("b" & a).End(xlToRight).Column

Bunları birleştirip ilgili hücreyi "seçmek" içinse:

 a = Range("b1:b" & Cells(65000, 2).End(xlUp).Row).End(xlDown).Row
b = Range("b" & a).End(xlToRight).Column
Cells(a, b).Select

 

[Korhan Ayhan]

Merhaba,

Tekrar belirtiyorum. İşlem yapmak için hücreleri seçtirmenize gerek yok.

İllaki seçtirmek istiyorum diyorsanız aşağıdaki şekilde yapabilirsiniz.

Sub Makro1()
    İlk = Evaluate("=MIN(IF(C5:Z5>0,COLUMN(C5:Z5)))")
    Son = Evaluate("=MAX(IF(C5:Z5>0,COLUMN(C5:Z5)))")
    Range("K7") = Cells(5, İlk) + Cells(5, Son)
    Set Hücre = Application.Union(Cells(5, İlk), Cells(5, Son))
    Hücre.Select
End Sub

 

[snx111]

hadiii kimse yokmu

 

[Husgvarna]

hadiii kimse yokmu

Sn snx111
Herkes burada.
Siz ayrılın gelin.

 

[snx111]

ilk = Evaluate("=MIN(IF(a5:x5>0,COLUMN(a5:x5)))")
son = Evaluate("=MAX(IF(a5:x5>0,COLUMN(a5:x5)))")
Range("K7") = Cells(5, ilk) + Cells(5, son) hata veriyor

 

[snx111]

copmpile error expectet or variable

 

[Korhan Ayhan]

Merhaba,

Hangi durumda bu hatayı aldığınızı belirtirmisiniz.

 

[Murat OSMA]

Bu hatayı genelde makro adı ile aynı isimde bir değişken kullanıldığında alırsınız...
Kontrol ediniz.