makroda 2 sorun

[puslukurt]

arkadaşlar bildiğiniz gibi aşağıdaki kod aktif sayfanın a6 satırından itibaren otomatik sıra veriyor. benim iki sorunum var. 1) bu sıra vermesi için bana sormasını istiyorum eğer ben kabul edersem (evet veya hayır) seçeneklerini kullanarak sıra vermek istiyorum. sorunum 2) bu sıra numarasını userform daki tektbox'ta görülmesini istiyorum. yardım eden ilgilenen arkadaşlarıma sonsuz teşekkür ederim.






Private Sub cummanbutton1_Click()

cevap = msgbox ("kayıt edeyimmi?", vbyesno)
If cevap = 6 Then
Range("A6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A6").Value = "" Then
Range("A6").Value = 1
Else
msgbox " bilgileriniz kayıt edilmemiştir."
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

End Sub

 

[emrexcel123]

bu kodu deneyin...

Private Sub CommandButton1_Click()
son = [a65536].End(3).Row + 1
cvp = MsgBox("Sıra numarasının verilmesini istiyor musunuz ?", vbQuestion + vbYesNo, "Sıra No")
If cvp = vbNo Then
Exit Sub
Else
Cells(son, 1) = son - 1
TextBox1 = Cells(son, 1)
End If
End Sub

 

[puslukurt]

teşekkür ederim olmuş birde diğer sorunumu yani sıra verilmesini kabul ettiğim takdirde verilen sıra numarasını textbox a nasıl yazdırabilirim. ayrıca bu yaptıklarımız aktif sayfada meydana gelmekta acaba userform sayfa1 de iken bu sıra numarasını sayfa2 ye yazdırabilirmiyim

 

[emrexcel123]

kırmızı satırda textbox1'e sıra numarasını alıyor

Private Sub CommandButton1_Click()
son = Sheets("sayfa2").[a65536].End(3).Row + 1
cvp = MsgBox("Sıra numarasının verilmesini istiyor musunuz ?", vbQuestion + vbYesNo, "Sıra No")
If cvp = vbNo Then
Exit Sub
Else
Sheets("sayfa2").Cells(son, 1) = son - 1
[COLOR="red"]TextBox1 = Sheets("sayfa2").Cells(son, 1)[/COLOR]
End If
End Sub

bu kodu kopyalamanız yeterli olacaktır...

 

[N.Ziya Hiçdurmaz]

yanıt

Örnek.

Private Sub CommandButton1_Click()
If MsgBox("Sıra no verelimmi", vbInformation + vbYesNo) = vbNo Then Exit Sub
For sira = 1 To [b65536].End(3).Row - 1
Range("a" & sira + 1) = sira
TextBox1.Value = Range("b" & sira + 1).Offset(0, -1).Value
Next
End Sub