HEDEF E HÜCRE DEĞERİ

[mnz]

1- Range("A1:Sheest("Sayfa1").value")

Bu kod çalışmıyor. Nasıl düzenleyebiliriz?

2- A1 Hücresine girilen formüle =topla(b1:"Sayfa1(c1)")
Bunu da yapamadım.

 

[nziya]

Private Sub UserForm_Initialize()
TextBox1 = Sheets("Sayfa1").Range("a1").Value
End Sub

=+TOPLA(B1;Sayfa1!C1)

 

[mnz]

bir dosya göndereyim en iyisi

 

[mehmett]

Dosyanızdaki birinci sorunuzun cevabı;

=BOŞLUKSAY(B2OLAYLI("B"&A1))

 

[mnz]

k::

 

[mnz]

VB KODLARI İÇİN YARDIMINIZI BEKLİYORUM.

 

[Korhan Ayhan]

Selamlar,

VB kodları derken neyi kasdediyorsunuz açıklarmısınız.

 

[mnz]

EKLEDİĞİM ÇALIŞMADA VAR

 

[veyselemre]

Range("B2:B" & [A1]).SpecialCells(xlCellTypeBlanks).Cells.Count