Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: BlueRiver - 17 Ekim 2020, 19:46:57
-
Merhaba
Aşağıdaki kodu kullanarak,
excelde Sayfa2 de üçüncü satırdan başlayarak H sütununda değer olan satırlara karşılık gelen B sütunundaki isimleri M7 hücresinden sırayla aşağı doğru yazdırıyorum,
yardım istediğim konu ise makronun M7 hücresinden M18 hücresine kadar max 12 adet veri girişi yapmasını, bulunan veri 12 adetten fazla ise 12 adet (M18 hücresine kadar) veri girişi yaptıktan sonra
girilebilecek maksimum isim sayısını aştınız şeklinde bir mesaj vererek M18 den aşağıya başka veri girmemesini istiyorum. (M19 da başka bilgiler var durmazsa üzerine yazıyor)
Yardımlarınız için şimdiden teşekkürler
Sub portfoy_al()
Sheets("Sayfa2").Range("M7:M17").ClearContents
Dim s1 As Worksheet: Dim i As Integer
Set s1 = Sheets("Sayfa2")
son = Cells(65336, "H").End(3).Row
sat = 7
For i = 3 To son
If Range("H" & i) > 0 Then
Range("M" & sat) = Range("B" & i)
sat = sat + 1
End If
Next i
End Sub