Ú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

• #30509 Delila_1 veterán kepton #30508

  Új Válasz 2016-02-10 12:22:04 #30509

  Ú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 kepton #30508 üzenetére

  Nincs mit.

• #30506 Delila_1 veterán kepton #30505

  Új Válasz 2016-02-10 12:02:20 #30506

  Ú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 kepton #30505 üzenetére

  

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