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

• #23473 Delila_1 veterán slashing #23472

  Új Válasz 2014-09-28 06:45:19 #23473

  Ú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 slashing #23472 üzenetére

  Sub tele_e()
  Dim sorok As Long, oszlopok As Integer
  
  Range("A4").Select
  Selection.CurrentRegion.Select
  sorok = Selection.Rows.Count: oszlopok = Selection.Columns.Count
  
  If sorok * oszlopok <> Application.CountA(Selection) Then
  MsgBox "Hiányos kitöltés"
  Else
  MsgBox "Rendben"
  End If
  End Sub

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