Satır sayısını sayıp userform değerini yazsın

[imdatsaral]

Selam Arkadaşlar,

Eklediğim dosyada açıklama yaptım ama yinede ne istediğimi dilimin döndüğünce anlatayım.

Dosya bir irsaliye şablonu YAZDIR sayfasında
en son satırın altına userform değirini yazdırmak istiyorum dosyayı incelerseniz ne demek istediğimi anlayacağınızı umuyorum
Yardımlarınız için şimdiden teşekkür ederim

 

[Ömer]

Merhaba,

Hangi değeri almak istediğiniz anlaşılmıyor.

Sütundaki son satır için;

son = Cells(Rows.Count, "[COLOR=red]A[/COLOR]").End(xlUp).Row

kullanılabilir.

.

 

[imdatsaral]

Userfurma girişi manuel yapıyorum. Userform üzerindeki tamam tıklağımda texte yazdığım değeri irsaliyeye yazsın

 

[mancubus]

o satırdan bu formüle, bu formülden diğerine çok dolaştırmışsınız.

H25:H40 aralığında formüle göre "" gelmeyen hücrelerin sayısını istiyorsanız aşağıdakini deneyin. countif vb sonuç üretmez burada.

say = [SUMPRODUCT(--($H$25:$H$40<>""))]

 

[Husgvarna]

Aşağıdaki gibi deneyin.

 Private Sub CommandButton1_Click()
Dim say As Integer
'ActiveSheet.Unprotect ""
[I26:I38] = ""
say = WorksheetFunction.CountIf(Range("h25:h40"), "")
say = 16 - say
Cells(25 + say, 9) = TextBox1
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Unload UserForm1
'ActiveSheet.Protect ""
'ActiveWorkbook.Save
End Sub

 

[imdatsaral]

Çok Teşekkür ederim Arkadaşlar emeğinize bilginize sağlık