Yalnız Mesajı Göster
Eski 21-04-2017, 14:16  
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 2,119
Excel Vers. ve Dili:
2010-2016
Varsayılan

İstediğiniz bu mu?
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ASKM_En_Buyuk()
Dim veri, BosSatir As Long
veri = Application.WorksheetFunction.Max(Range("C200:C5000"))
BosSatir = [B200:B5000].SpecialCells(xlCellTypeBlanks).Cells(1).Row
Rows(BosSatir).Insert Shift:=xlDown
Cells(BosSatir, "B").Value = "sistem b4 hücresinden " & veri & " 1.maddede bulunan maksimum değer"
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla