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

• #20203 Delila_1 veterán Attas #20200

  Új Válasz 2014-01-23 15:30:18 #20203

  Ú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 Attas #20200 üzenetére

  A VB szerkesztőben a ThisWorkbook laphoz kell rendelned a makrót, ami a füzet bezárásakor rákérdez a törlésre.

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim v$
  v$ = MsgBox("Töröljem az adatokat", vbYesNo + vbQuestion)
  If v$ = vbYes Then
  Sheets("Adatok (2)").Range("B4:F4").Select
  Range(Selection, Selection.End(xlDown)).ClearContents
  End If
  End Sub

• #20202 Delila_1 veterán Attas #20200

  Új Válasz 2014-01-23 15:09:59 #20202

  Ú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 Attas #20200 üzenetére

  Range("B4:F4").Select
  Range(Selection, Selection.End(xlDown)).ClearContents

  Tehetsz be elé egy kérdést MsgBox, vagy InputBox segítségével.

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