Ú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.

• #45416 Fferi50 Topikgazda repvez #45415

  Új Válasz 2020-11-22 17:36:05 #45416

  Ú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

  

  Fferi50

  Topikgazda

  válasz repvez #45415 üzenetére

  Szia!
  Próbáld ki ezt az eseménykezelő makrót, a Munka1 munkalapod kódlapjára kell bemásolni.
  Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Variant
If Target.Address = "$H$2" Then
With Sheets("Munka2")
cel = Application.Match(CLng(Date), .Range("A:A"), 0)
If IsError(cel) Then
cel = .Range("A1000").End(xlUp).Row + 1
.Cells(cel, 1).Value = Date: .Cells(cel, 2).Value = Target.Value
Else
.Cells(cel, 1).End(xlToRight).Offset(0, 1).Value = Target.Value
End If
End With
End If
End Sub

  Üdv.

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