satır ekleme,maksimum değeri bulma, birleştirme ve çıkan sonucu bir hücreye yazdırma

[cengiz123]

merhabalar bir konuda yardım isticem sizlerden
3-4 işlemi bir arada yapacak

sorum ise;
1.c200 ile c5000 arasındaki maksimum değer bulunacak
2.b200ile b5000 arasındaki ilk boş hücre bulunacak ve bulunan hücrenin satırına yeni satır eklenecek
3.yeni eklenen satıra "sistem&b4 hücresinden veri&1.maddede bulunan maksimum değer" gibi birleştirme yapılarak eklenen satırın a sütununa yazılacak.

yardımlarınız için teşekkür ederim

 

[askm]

Örnek dosya eklerseniz bakalım.

 

[cengiz123]

dosya ekleyemiyorum maalesef. dosya ekleme bende açık değil.

 

[askm]

http://www.dosyaupload.com/8R63 bu site üzerinden ekleyin.

 

[cengiz123]

yükledim.

http://www.dosyaupload.com/4Gky

 

[askm]

Yanlış dosya yüklediniz sanırım. Yüklediğiniz dosya konu ile alakalı değil.

 

[cengiz123]

b200 ve c200 de veriler hocam

 

[askm]

Dizel6 Nissan2 182 en büyük satır bu. Sistem ve Veri Sayfası nerede. Yapmak istediğiniz pek anlaşılmıyor.

 

[cengiz123]

"sistem"sadece bir kelime. veri ise b4e gireceğim kelime

 

[askm]

İstediğiniz bu mu?

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

 

[cengiz123]

hocam çok teşekkkür ederim. tam istediğim gibi.
allah razı olsun

 

[askm]

Rica ederim. Kolay gelsin.