• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

A sütunundaki en son sayıyı A1'e yazan makro

E

EKREM1661

Katılım
10 Kasım 2006
Mesajlar
1,288
Excel Vers. ve Dili
Excel-2016
Değerli Arkadaşlar..! Şöyle bir makro gerekli..

A1 hücresi hariç olmak üzere;

"A" sütununa girilen veya mevcut bulunan sayıların / rakamların
EN BÜYÜĞÜNÜ ve EN SONUNCUSUNU;

Her halükarda A1 e yazan, MAKROLU çözümü...

Bir nevi =MAX ( ) formülünün yaptığı işi yapacak..
 
EKREM1661' Alıntı:
Değerli Arkadaşlar..! Şöyle bir makro gerekli..

A1 hücresi hariç olmak üzere;

"A" sütununa girilen veya mevcut bulunan sayıların / rakamların
EN BÜYÜĞÜNÜ ve EN SONUNCUSUNU;

Her halükarda A1 e yazan, MAKROLU çözümü...

Bir nevi =MAX ( ) formülünün yaptığı işi yapacak..
Genişletmek için tıkla ...

merhaba
en büyük sayı her zaman en sonda mıdır?

en büyük sayı en sonda değilse; en büyük sayı mı alınacak en son sayı mı?
 
uzmanamele' Alıntı:
merhaba
en büyük sayı her zaman en sonda mıdır?

en büyük sayı en sonda değilse; en büyük sayı mı alınacak en son sayı mı?
Genişletmek için tıkla ...

Evet..Süleyman Bey haklısınız.. soruyu eksik yazmışım.. En son rakam hem en büyük sayı, hem de en sonuncu sayı... Çünkü A sütunu aşağıya doğru sıra no yazılarak devam eden bir sütun... En son, en güncel sayıyı A1 de tutacak..ve bu makro ile olacak
 
:cool:
Kod: 
Sub enbuyuk_sayi_59()
MsgBox "En Büyük Sayı : " & WorksheetFunction.Max(Range("A2:A65536")) & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

Sub en_son_değer_59()
MsgBox "En son değer : " & Range("A" & Cells(65536, "A").End(xlUp).Row) & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub
 
Sn.Evren hocam.. Çok teşekkür ediyorum..
Konu açılmışken; birde yukarıdaki konuya bağlı olarak şöyle bir şey yapmak istiyorum. (kendi yaptığımdan memnun kalmadım)

Eğer; A sütununda, A6 .... itibariyle devam eden en son sayı, A1 de yazılı değil ise;
Sözü edilen; en son sayıyı A1 hücresinde yazsın..

Yani bir nev'i =MAK(A6:AA65536) gibi çalışması lazım.. Ama makro ile..
A1 deki sayı ne kadar silinse de, silinen sayı yine A1 de hemen oluşsun..

(Düşündüm de; bu makroyu sayfanın hem Activate ve hem de Selection olaylarına mı yazmak gerekiyor)
 
EKREM1661' Alıntı:
Sn.Evren hocam.. Çok teşekkür ediyorum..
Konu açılmışken; birde yukarıdaki konuya bağlı olarak şöyle bir şey yapmak istiyorum. (kendi yaptığımdan memnun kalmadım)

Eğer; A sütununda, A6 .... itibariyle devam eden en son sayı, A1 de yazılı değil ise;
Sözü edilen; en son sayıyı A1 hücresinde yazsın..

Yani bir nev'i =MAK(A6:AA65536) gibi çalışması lazım.. Ama makro ile..
A1 deki sayı ne kadar silinse de, silinen sayı yine A1 de hemen oluşsun..

(Düşündüm de; bu makroyu sayfanın hem Activate ve hem de Selection olaylarına mı yazmak gerekiyor)
Genişletmek için tıkla ...
Böyle karmaşık işlerle niye uğraşıyorsunuz ki.
A1 hücresine yazın fir mak() formülü mdem ki.Olsun bitsinn.
Diğer bütün hücrelerin kilitini kaldırın sadece a1 e kilit koyun.
Yapın bir sayfa koruması mesele hallosun.
Seelction veya activita ye değilde
chneged olayına yazarsanız.A sütunda çalışcak şekilde sadece olur.:cool:
 
Evet..haklısınız..Sayfa koruması, sayfada yer alan bazı nesneleri tam sağlıklı çalıştırmadığı için düşünmüştüm. Neyse ki çok önemli bir sorun değil.. Fomülle devam ederiz.. Teşekkürler ve hayırlı çalışmalar..
 
Selamlar,

Ekteki örnek dosyayıda kullanabilirsiniz.
 

Ekli dosyalar

slm yazılımcı arkadaşlar bana makro konusunda yazılım yazırabıleceğim antalyadan arkadaşlar ulaşırsa sevinirim telefon bırakırsanız msj olarak atarsanız ulaşabilirim çok acil lazım.. bu konuda destek..
 
korhan bey telefonla size nasıl ulaşabilirim..makro konusunda sıkıntılarımız var.mümkünse ulaşırsanız sevınırım..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst