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

• #18130 Mutt senior tag hallgat #18101

  Új Válasz 2013-05-23 01:09:18 #18130

  Ú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

  

  Mutt

  senior tag

  válasz hallgat #18101 üzenetére

  Hello,

  A nevesített cellákra makróban az alábbi módokon tudsz hivatkozni:
  Range("ALPHA_2X2")
  [ALPHA_2X2]

  A lenti makró az ALPHA_2X2, 2X3 és 2X4 nevű cellák tartalma alapján vagy adja a felugró ablakot, vagy futtatja a kódodat. Ha legalább az egyik cella üres, akkor leáll, vagyis csak akkor enged tovább ha minden mezőben van vmi (hogy az szám, szöveg, képlet stb. nem nézi).

  Sub Elagazas()
  Dim blnUres As Boolean
  Dim cell As Range
  
  blnUres = False
  
  For Each cell In Range("ALPHA_2X2, ALPHA_2X3, ALPHA_2X4")
  If IsEmpty(cell.Value) Then blnUres = True
  Next cell
  
  If blnUres Then
  MsgBox "Hiányzó értékek!", vbOKOnly, "Hiba"
  Else
  'ide jön az eredeti kódod
  End If
  End Sub

  Ebből tudsz építkezni ha nem lenne elég.

  üdv.

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