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

• #50262 Fferi50 Topikgazda Pá #50260

  Új Válasz 2023-01-11 18:51:55 #50262

  Ú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 Pá #50260 üzenetére

  Szia!
  Makró nélkül szerintem csak akkor megy, ha egy harmadik lapon csinálod az adatbevitelt és ahhoz kötöd a két másik lapot - egyiket függőlegesen, másikat vízszintesen.
  Egy oszlop transzponálása sorrá és vissza, itt a két makró:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka2").Range("C84:BJ84").Value = Application.Transpose(Range("A3:A62").Value)
Application.EnableEvents = True
End Sub
  Illetve:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka1").Range("A3:A62").Value = Application.Transpose(Range("C84:BJ84").Value)
Application.EnableEvents = True
End Sub

Ez minden alkalommal egy az egyben átteszi az egész területet.
Az éppen módosított cella értékét a következőképpen lehet áttenni:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka2").Range("C84:BJ84").Cells(Target.Row - 2).Value = Target.Value
Application.EnableEvents = True
End Sub
és
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka1").Range("A3:A62").Cells(Target.Column - 2).Value = Target.Value
Application.EnableEvents = True
End Sub

  Üdv.
  

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