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

• #27368 Delila_1 Topikgazda scott_free #27364

  Új Válasz 2015-06-16 10:41:48 #27368

  Ú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

  Topikgazda

  válasz scott_free #27364 üzenetére

  Azért nem működik, mert a laphoz rendelt makró csakis a saját lapján tud működni. Van viszont mód rá, hogy másik lapon, lapról dolgozzon, ehhez meg kell hívni egy modulban lévő másik makrót, átadva a szükséges értékeket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Row > 1 Then
  Application.EnableEvents = False
  Beiras Target.Row, Target 'itt hívjuk meg a Beiras makrót, átadva az aktuális sort és a bevitt értéket
  Application.EnableEvents = True
  End If
  End Sub

  A Beiras makró modulban van.

  Sub Beiras(sor, ertek) 'itt veszi át a két értéket, amiket felhasznál
  Dim Hol As Range
  
  Set Hol = Sheets("Nevek").Range("NevekPontok")
  With Sheets(1)
  Select Case ertek
  Case 0
  .Range("B" & sor & ":G" & sor) = 0
  Case 1
  .Cells(sor, "B") = Hol(1)
  .Cells(sor, "C") = Hol(1).Offset(, 1)
  .Cells(sor, "D") = Hol(1).Offset(1)
  .Cells(sor, "E") = Hol(1).Offset(1, 1)
  Case 3
  .Cells(sor, "B") = Hol(1).Offset(2)
  .Cells(sor, "C") = Hol(1).Offset(2, 1)
  .Cells(sor, "D") = Hol(1).Offset(3)
  .Cells(sor, "E") = Hol(1).Offset(3, 1)
  .Cells(sor, "F") = Hol(1).Offset(4)
  .Cells(sor, "G") = Hol(1).Offset(4, 1)
  End Select
  End With
  End Sub

  Nem adtad meg, és én nem tudtam kihámozni, mi legyen kettes sorszám bevitelekor.

  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