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

• #33985 nordican tag nordican #33984

  Új Válasz 2017-01-29 21:30:14 #33985

  Ú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

  

  nordican

  tag

  válasz nordican #33984 üzenetére

  Hú, úgy tűnik, működik! Ez k...a jó!
  Ide raktam be:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Union(Range("C65"), Range("C69"))) Is Nothing Then
  Rows(Target.Row).AutoFit
  If Not Intersect(Target, Range("C65")) Is Nothing Then
  With Sheets("Munka1").Range("B14")
  .Value = Target.Value
  Sheets("Munka2").Range("B14").MergeArea.UnMerge
  Sheets("Munka2").Range("B14").Rows.AutoFit
  Sheets("Munka2").Range("B14:E14").Merge
  End With
  End If
  If Not Intersect(Target, Range("C69")) Is Nothing Then
  With Sheets("ajánlat1").Range("B26")
  .Value = Target.Value
  .Rows.AutoFit
  End With
  End If
  End If
  End Sub

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