Makro ile son sütun değişkenine göre formül yazmak.

[hmtstc]

Merhaba arkadaşlar,

Sizlerden yine bir soru ile desteğinizi rica ediyorum.

Uzun çalışmalar sonucu sizlerin desteğiyle bir program yazdım ancak takıldığım bir nokta var. Örnek dosya imkanı olmadığı için anlatayım.


a1 den h1 e kadar hücrelerde sayılar var.
h1 değişken olduğu için saydırıyorum ( mesela g1 e kadar da olabiliyor.)
saydırdığım değere x diyorum.
daha sonra son yazılı hücrenin sağındaki hücreye yani cells(1, x + 1) hücresine
=MAK(A1:H1) yazmaya çalışıyorum. Ancak bu değişken olduğu için H1 olarak giriş yapamıyorum.

Şöyle bir şey lazım.

=MAK(cells(1,1):cells(1,x+1))

gibi. yani sütun değişkenini formülde belirtmem lazım.
Elimde satır için örneği var ancak sütun olunca ben beceremedim. İşin içinden çıkamadım.

Lütfen yardımcı olun arkadaşlar.

Tekrar özetle anlatayım.
1 satırda işlemler gerçekleşiyor. Satırda sola doğru ilerleyen hücrelerden son hücreyi saydırıyorum. son hücrenin sağındaki boş hücreye "maksimum" formülünü bu yazılı değerler arasından seçtiriyorum.

formül bana bunu vermeli. Nasıl yapabilirim internette satır çok ama sütun bulamadım.

Şimdiden teşekkürler.

 

[Orion1]

Buyurun.

Dim mak As Double, sonsut As Integer
sonsut = Cells(1, Columns.Count).End(xlToLeft).Column
mak = WorksheetFunction.Max(Range(Cells(1, 1), Cells(1, sonsut)))
MsgBox mak

 

[hmtstc]

Hocam çok teşekkür ederim. Sayende hallettim valla.

Şimdi başka bir sorunum var.

1 den 31 e kadar sayfalar var.
ben RAPOR isimli bir sayfa yaptım.
ve RAPOR sayfasına 1 den 31 e kadar olan sayfalardan veri almam gerekiyor.
sıkıntım şurada

1. sayfadan veriyi aldıktan sonra diğer sayfalara for next ile devam etmesini istedim ama beceremedim. RAPOR sayfasında 8. satırdan başlayıp 15 satır atlayarak aşağıya inecek. onu c = 8 ve c= c + 15 ile çözdüm. ama sayfalardan for next döngüsü kurmayı beceremedim.

Yardımcı olma imkanınız varsa çok memnun olurum.

Şimdiden teşekkürler.

Örnek:

Sub SADSAD()
Dim c As Integer
Dim s As Integer
Dim m As Integer


For c = 8 To 20
For m = 1 To 31
c = c + 15
sheets("m").Select
Range(Cells(35, 4), Cells(49, 12)).Select
Selection.Copy
Sheets("RAPOR").Select
Cells(8 + c, 2).Select
'ActiveSheet.Paste
Cells(c, 2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Next m
Next c
End Sub

 

[Orion1]

Eğer sayfa adları 1,2,3...31 diye devam ederse aşağıdaki gibi değilse en alttaki gibi yazınız.

sheets("m").Select

yukarıdaki satırı aşağıdaki ile değiştirin.

sheets(cstr(m)).Select

sayfa indexine göre;

sheets(m).Select