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

• #33974 Fferi50 Topikgazda nordican #33971

  Új Válasz 2017-01-29 18:49:29 #33974

  Ú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 nordican #33971 üzenetére

  Szia!

  Íme:

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A1"), Range("A3"))) Is Nothing Then
Rows(Target.Row).AutoFit
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Sheets("Munka2").Range("B2")
.Value = Target.Value
.Rows.AutoFit
End With
End if
If Not Intersect(Target, Range("A3")) Is Nothing Then
With Sheets("Munka2").Range("B4")
.Value = Target.Value
.Rows.AutoFit
End With
End If
End If
End Sub

  Üdv.

• #33972 Delila_1 veterán nordican #33971

  Új Válasz 2017-01-29 18:35:31 #33972

  Ú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

  veterán

  válasz nordican #33971 üzenetére

  Csak most nézem a feladatodat, de már az elején zavaros. Biztosan ezért nem kapsz érdemi választ.
  "...az A1 és az A3 cellában készül két különböző (többtételes) lista..."

  Egy cellában nem lehet lista, csak egyetlen adat.

  Tegyél fel egy füzetet, amiben a lapjaid neve az igazi. Írj valamilyen adatokat, ahova kell, és írd bele azt is, hogy mit akarsz ezekből kihozni.

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