Fonksiyonu makro ya çevirmek

[ikikan]

Altaki formülü makro ile yapmamız mümkünmüdür.


{=MAK(UZUNLUK(B4:B24))}

 

[erkanfun]

Altaki formülü makro ile yapmamız mümkünmüdür.


{=MAK(UZUNLUK(B4:B24))}

C1 hücresine sonucu yazdırır.

Sub Makro1()
Range("C1").FormulaArray = Evaluate("MAX(LEN(B4:B24))")
End Sub

 

[ikikan]

C1 hücresine sonucu yazdırır.

Sub Makro1()
Range("[COLOR="Red"]C[/COLOR]1").FormulaArray = Evaluate("MAX(LEN([COLOR="Red"]B[/COLOR]4:[COLOR="Red"]B[/COLOR]24))")
End Sub

Teşekurler ilgin için
Kırmızı ile işaretli yerleri değişken yapmalıyım range dışında önerin varmı cells gibi?

 

[erkanfun]

Teşekurler ilgin için
Kırmızı ile işaretli yerleri değişken yapmalıyım range dışında önerin varmı cells gibi?

Range("C1") yerine Cells(1, 3) de yazabilirsin.

 

[ikikan]

Evaluate("MAX(LEN(B4:B24))")

Burdaki B leride değişken yapabilirmiyim?

 

[erkanfun]

Evaluate("MAX(LEN(B4:B24))")

Burdaki B leride değişken yapabilirmiyim?

Tabiki (B4:B24) alanı değişkendir zaten.

 

[ikikan]

Tabiki (B4:B24) alanı değişkendir zaten.

Yanlış ifade etim sanırım B4:B24 değişken derken C4:C24 ,D4: D24 demek istemiştim
ayrıca şöyle bir kod yazıla bilirmi bir döngü içinde..

maxsumum1 = Application.WorksheetFunction.Max(shf2.Cells(i + 5, 1 - e).Value - Len(shf2.Cells(i + 5, e - 1).Value))

 

[ikikan]

Yardim edecek kimse yokmu arkadaşlar.