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

• #45420 m.zmrzlina senior tag repvez #45415

  Új Válasz 2020-11-22 18:55:44 #45420

  Ú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

  

  m.zmrzlina

  senior tag

  válasz repvez #45415 üzenetére

  Tegyük fel, hogy
  -H2:H7 tartományban viszel fel adatokat a Munka1 nevű munkalapon
  -ENTER-re lefelé ugrik az aktív cella és nem jobbra
  -ha nem is írsz minden cellába a H2:H7-be akkor is leviszed az aktív cellát H8-ig
  -további ha-k >....< ide
  akkor itt egy Móricka megoldás:

  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim holavege As Long
    Dim cella As Range
    If ActiveCell.Column = 8 And ActiveCell.Row = 8 Then
        holavege = Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
        Worksheets("Munka2").Range("A" & holavege) = Date
        For Each cella In ActiveSheet.Range("H2:H7")
           Worksheets("Munka2").Cells(holavege, cella.Row) = Worksheets("Munka1").Cells(cella.Row, 8)
        Next
    End If
End Sub
  
  Ez azért Móricka megoldás mert csinál olyan dolgokat is amit nem szeretnél, de pontosabb megoldáshoz nekem pontosabb feladat leírás kellene.

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