Aktív témák

• #239 matekmatika tag

  2006-04-12 17:52:46 #239

  Ö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

  

  matekmatika

  tag

  Sziasztok!
  Valamit nem értek már nagyon régóta. Van itt egy parnacsgomb alá összeállított sub.
  
  Private Sub CommandButton11_Click()
  i = 25
  Set anyag = Worksheets(''akarmilap1'')
  Set bp = Worksheets(''akarmilap2'')
  Do While Cells(i, 1) <> Emty
  If Cells(i, 20) = 2 Then
  anyag.Cells(Cells(i, 21) + 1, 22) = anyag.Cells(Cells(i, 21) + 1, 22) - Cells(i, 4)
  End If
  If Cells(i, 20) = 4 Then
  Range(bp.Cells(Cells(i, 21), 2), bp.Cells(Cells(i, 21), 4)).Select
  Selection.Delete Shift:=xlUp
  End If
  i = i + 1
  Loop
  torles
  End Sub
  
  Már többször ütköztem abba az akadályba, hogy ha egy másik munkalapon akarok kijelölni valamit akkor azt nem tehetem simán private sub alá mert hibaüzenettel leáll. A fenti példában az első feltételt pl. simán megcsinálja, mert nincs benne kijelölés, a második feltételnél kiakad. Érdekes az egészben az, hogyha ezt egy modulba berakom, és azt hívom meg parancsgombbal akkor simán lefut. Na de én nem akarok monden parancsgombbal modulokat hívogatni. Megoldás van rá?
  

Aktív témák