yeni makrolar

[önder34]

arkadaşlar ekteki dosyadaki user formlara makro ihtiyacım var yardımcı olabilecek varsa minnettarım

 

[ik]

Sheets("Sayfa1").Select
Range("b3").Select

Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

If Range("b3").Value = "" Then
Range("b3").Value = 1
Range("b3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
' buraya kadar hareket sıra no verir.

ActiveCell.Offset(0, 1).Value = textbox1.value
ActiveCell.Offset(0, 2).Value = textbox2.value
.....
.....

Şeklinde devam ederek userform üzerindeki verileri excel sayfasına aktarabilirsiniz.

 

[Recep İpek]

Her bilgi için ayrı ayrı userform hazırlamak yerine size önerim tek userformda MultiPage kontrolünü kullanmanızdır.

Çünkü bir kişiye ait bilgileri ayrı ayrı userformlardan excel sayfasına kayıt etmek biraz zahmetlidir.

Bununla ilgili örneği ekteki dosyada bulabilirsiniz.