Új hozzászólás Aktív témák

• #36754 Delila_1 veterán CsoGe #36751

  Új Válasz 2017-12-13 11:34:15 #36754

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz CsoGe #36751 üzenetére

  A gombhoz a Veletlen makrót rendeld, ez hívja meg a Inditas-t.

  Sub Veletlen()
Dim kezd As Long, sor As Long

If Range("AA1") = "" Then
Inditas
Else
MsgBox "Nyugi! 5 mp után újra indul" & vbLf & _
"ha ezt leokéztad", vbInformation
Application.Wait Now + TimeValue("0:00:05")
Inditas
End If
Range("AA1") = "Indítva"
End Sub

  Sub Inditas()
Dim kezd As Long, sor As Long

kezd = Range("E" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
For sor = kezd To kezd + 4
Cells(sor, "E") = Int(Rnd() * 153) + 1
Next
End Sub

  Érdemes a ThisWorkbook laphoz rendelni egy makrót, ami a füzet behívásakor kiüríti az AA1 cellát.
  Private Sub Workbook_Open()
Sheets("Munka1").Range("AA1") = ""
End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Új hozzászólás Aktív témák