Soru Metin sütunlarında Max bulma

[FERAZ]

Merhaba.
A sütunu format metin ve ben resimdeki gibi en büyük değeri bulmak istiyorum.
Not döngüsüz ve sendkey ile f2 ve enter kullanmadan olmalı.

Private Sub CommandButton1_Click()
    [C1] = WorksheetFunction.Max(Range("A:A"))
End Sub

https://dosya.co/heul7t3n4beg/Kitap1.xlsm.html

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

[C1].FormulaArray = Evaluate("=Max(--A:A)")

 

[FERAZ]

Elinize sağlık süper oldu.

 

[FERAZ]

[C1].FormulaArray = Evaluate("=Max(--A:A)")
yerine Range kullanabilirimziz birde mesela
[C1].FormulaArray = Evaluate("=Max(--sheets("Sayfa1").range(A:A)") gibi

 

[Ömer]

Bu şekilde deneyin.

[C1].FormulaArray = Evaluate("=Max(--" & Sheets("Sayfa1").Range("A:A").Address(external:=True) & ")")

 

[Korhan Ayhan]

Deneyiniz.

[C1].FormulaArray = Evaluate("=Max(--'Sayfa1'!A:A)")

 

[Haluk]

[C1] = [max(Sheet1!A1:A10+0)]

.

 

[FERAZ]

[C1] = [max(Sheet1!A1:A10+0)]

.

sheet1 yerine [max(Sheets("Sayfa1").range("A1:A11")+0)] gibi kullanabilirmiyiz denedim yapamadım

 

[FERAZ]

Deneyiniz.

[C1].FormulaArray = Evaluate("=Max(--'Sayfa1'!A:A)")

Korhan hocam kodda range kelimesi geçmeli.

 

[Haluk]

sheet1 yerine [max(Sheets("Sayfa1").range("A1:A11")+0)] gibi kullanabilirmiyiz denedim yapamadım

[C1] = [max(Sayfa1!A1:A11+0)]

 

[FERAZ]

Bu şekilde deneyin.

[C1].FormulaArray = Evaluate("=Max(--" & Sheets("Sayfa1").Range("A:A").Address(external:=True) & ")")

Böyle süper oldu. external acaba ne işe yarar.

 

[Ömer]

Address belirlerken bu özelliği True yaparsanız çalışma kitabı yada çalışma sayfasını adrese ekler. Bu özelliği hiç eklemez yada False yaparsanız çalışma kitabı yada çalışma sayfasını adrese eklemez.

 

[FERAZ]

Address belirlerken bu özelliği True yaparsanız çalışma kitabı yada çalışma sayfasını adrese ekler. Bu özelliği hiç eklemez yada False yaparsanız çalışma kitabı yada çalışma sayfasını adrese eklemez.

Teşekkürler.Bu metin sütunlarından max bulma ömrümü yemişti

 

[Korhan Ayhan]

Siz hep kısa çözüm yolunu aradığınız için formülüde olduğunca kısa tutmaya çalıştım.

 

[FERAZ]

Siz hep kısa çözüm yolunu aradığınız için formülüde olduğunca kısa tutmaya çalıştım.

Öylede işime yarıyor, insanoğlu işte merak hocam.