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

• #23779 Delila_1 veterán Xterms #23761

  Új Válasz 2014-10-17 08:47:08 #23779

  Ú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 Xterms #23761 üzenetére

  Az A oszlopba írtam az adatokat, B-be gombok helyett csak a Windings betűtípus 0240-es kódját tettem. A fekete hátterű cellák a C oszlopban vannak.
  A makrót a laphoz kell rendelni.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim sor As Long
  sor = Target.Row
  If Target.Column = 2 Then
  If Cells(sor, 3) = "" Then
  Cells(sor, 3) = Cells(sor, 1)
  Else
  Application.DisplayAlerts = False
  Do While Cells(sor, 3) <> ""
  Cells(sor, 3) = Cells(sor + 1, 3)
  sor = sor + 1
  Application.DisplayAlerts = True
  Loop
  End If
  End If
  End Sub

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