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

• #50359 TheSaint aktív tag kepton #50350

  Új Válasz 2023-01-31 15:00:24 #50359

  Ú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

  

  TheSaint

  aktív tag

  válasz kepton #50350 üzenetére

  Egy megoldás:
  Először a D3 cellába a darabszám, majd a C3 cellába a cikkszám:

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Dim cikkszam As String
cikkszam = Target.Value
Dim keresettSor As Range
Set keresettSor = Me.Range("A:A").Find(cikkszam, LookIn:=xlValues)
If Not keresettSor Is Nothing Then
Dim darabszam As Integer
darabszam = Me.Range("D3").Value
Me.Cells(keresettSor.row, 2).Value = Me.Cells(keresettSor.row, 2).Value + darabszam
End If
End If
End Sub

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