vba dışarı aktarma

1- Private Sub CommandButton1_Click() Dim wb As Workbook Dim ur As Worksheet Dim urss As Long Dim sor As Byte If Option1.Value = True Then sor = MsgBox("ürün listesi dışarı aktarılsın mı?", vbQuestion + vbYesNo, "dışarı aktar") If sor = vbNo Then Exit Sub Set ur = Sheets("Urunler") urss =...