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

• #52950 Delila_1 veterán Dr. Mózes #52949

  Új Válasz 2024-07-10 16:40:11 #52950

  Ú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 Dr. Mózes #52949 üzenetére

  Makróval lehet megoldani. A makrót a lapodhoz rendeld (lásd a Téma összefoglalóban).
  Úgy írtam meg, hogy a mértékegységek a 2. oszlopban vannak, a mennyiségeket a harmadikba írod. Az If Target.Column = 3 Then sorban kell átírnod a 3-at annak az oszlopnak a számára, ahova az értékeket írod.

  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim szoveg As String
    If Target.Column = 3 Then
        szoveg = "#,##0" & " """ & Cells(Target.Row, Target.Column - 1).Value & """"
        Cells(Target.Row, Target.Column).NumberFormat = szoveg
    End If
End Sub

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