Sonu bilinmeyen sütunda formül

[Maksim]

Herkese merhaba
Sonu bilinmeyen sütun için formül nasil yazılır?
Mesela Range ("a1:ax) sütununa vba ile toplam vermek lazım
x bilinmeyen sonluk
x nerde biterse bitsin toplam istiyorum.Böyle bir sey nasıl yapılır?
İlginiz için teşekkürler

 

[Recep İpek]

son=[a65536].End(3).Row

Range("b2").Value = WorksheetFunction.Sum(Range(Cells(1,"a"),Cells(son,"a")))

olarak deneyin.

 

[Maksim]

Hocam malesef olmadi

 

[Recep İpek]

Sorunuzu yanlış anladığımdan dolayı kodların çalışmaması doğaldır.

Sanırım siz A kolonunda toplam almak istiyorsunuz.

Bunun için aşağıdaki kodları kullanabilirsiniz.

Sub Button1_Click()
son = [a65536].End(3).Row
Cells(son + 1, "a").Value = WorksheetFunction.Sum(Range(Cells(1, "a"), Cells(son, "a")))
End Sub

 

[Maksim]

Teşekkür ederim Hocam! Zahmet ettiniz.Tam istediyim kodlama

 

[Maksim]

Hocam bi kod var Kenarlık çizer
With Range("B1:B5").Borders
.LineStyle = xlContinuous
.ColorIndex = 1
.Weight = xlThin
End With
Bu kodu sonu bilinmeyen kodlamaya nasıl uygulaya biliris? Yani sonu bilinmeyen veri nerde biterse bitsin kenarliğa alınsın

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

With Range("B1:B" & [B][COLOR=red][B65536].End(3).Row[/COLOR][/B]).Borders
.LineStyle = xlContinuous
.ColorIndex = 1
.Weight = xlThin
End With

 

[Maksim]

Teşekkürler.Zahmet ettiniz

 

[Maksim]

Bu konu ile ilğili daha bir ricam olacak.
Diyelim ki Veri D3 Den başlayib DX-da bitir.Ben şöyle bi formul vermek istiyorum
G3 den GX a dek D3*1 ve ya
range(G3:SON).formula ="=(D3(son)*1)"
Sanirim anlata bildim.
Diger konular kibi bu konuda da yardim ederseniz sevinirim.
Ilginiz için teşekkürler

 

[Maksim]

Bu konuda bana yardim edermisiniz?

 

[Recep İpek]

Küçük bir örnek dosya ekleyebilirmisiniz?

 

[Maksim]

Tamam hazirladigim dosyayi ekledim BORC ALACAK DURUM RAPORU.xls - 40.5 Kb
Bu rapor sql olmasa calismiyor.Logo icin yapildi.Firma ve sql bilgilerini deyisirseniz calisdira bilirsiniz

 

[hsayar]

.............
'D4 d son aralığını 1 le çarpıp g4 g son aralığına yazar
Son = [D1500].End(3).Row
For g = 3 To Son
If Cells(g, "d") <> "" Or Cells(g, "d") = " " Then
c = 4   'vereilerin yaz&#305;ld&#305;&#287;&#305; ilk sat&#305;r
Cells(c, "g") = Cells(g, "d") * 1
End If
Next
'c: verinin yaz&#305;laca&#287;&#305; sat&#305;r, g: i&#351;lem yap&#305;lacak sat&#305;r, "d";"g" vs. s&#252;tun ba&#351;l&#305;klar&#305;
'===================
[color="green"]'burda vermek istediyim formul bu ki bakiye alacak e1 satrina kecsin ve bakiye alacak hidde olsun[/color]
....................

kodlarınızdaki yeşil satırın üzerine benim verdiğim kodları yapıştırarak deneiyiniz karambole bu kadar anladım.

 

[Maksim]

Abi denedim.Olmuyor.Istediyimi bi daha resimle anlamaya çalışacam

Sizlere zahmet verdiyim için özür dilerim

 

[hsayar]

"d" leri "e" yaparak dene... yeniden düzenledim birde böyle dene

.............
'D4 d son aralığını 1 le çarpıp g4 g son aralığına yazar
Son = [e1500].End(3).Row
For g = 4 To Son
If Cells(g, "e") => 0 Then
Cells(g, "g") = Cells(g, "e") * 1
End If
Next
g: işlem yapılacak satır, "e";"g" vs. sütun başlıkları
'===================
[color="green"]'burda vermek istediyim formul bu ki bakiye alacak e1 satrina kecsin ve bakiye alacak hidde olsun[/color]
....................

kodlarınızdaki yeşil satırın üzerine benim verdiğim kodları yapıştırarak deneiyiniz

 

[Maksim]

Teşekkürler....Sonda alındı

 

[hsayar]

rica ederim....

 

[Maksim]

Yeniden herkese merhaba.Sonu bilinmeyen (nerde biteceyi bilinmeyen) rakamın formatını
NumberFormat = "#,##0.00 ""%"""
kibi yapmak istiyorum.Yardım edersinizmi?
Şimdiden teşekkür ederim

 

[hsayar]

eğer tek bir sütun için ise

snst = [a65536].End(3).Row
    Range("A2:A" & snst + 2).Select
    Selection.NumberFormat = "#,##0.00"

birbirine bitişik birden fazla sütun için

snst = [a65536].End(3).Row
     Range("A" & snst + 2 & ":B" & snst + 2).Select
    Selection.NumberFormat = "#,##0.00"