Posts by Jasmin

Thank you very uch , this is what I needed.

And I am sending another automated solution

please

it should be like in column d

thank you

thank you, this is not what i want.
it s not outputting the same way i have sent you.

this is the English translation. sorry :
Hi everyone My question regarding this paper is: I have the first column with a set of file names - which can increase or decrease In the second column there is also a group of names which can increase or decrease Again. And I want with the third column to combine them as in the attached file. How can we do this if we add or remove content to modify, is that possible?

Salut tout le monde Ma question concernant ce papier est la suivante : J'ai la première colonne avec un ensemble de noms de fichiers - qui peut augmenter ou diminuer Dans la deuxième colonne, il y a aussi un groupe de noms qui peut augmenter ou diminuer encore. Et je veux avec la troisième colonne les combiner comme dans le fichier attaché. Comment peut on le faire si on ajoute ou on supprime du contenu à modifier, est-ce possible ?

ok but how ?
Suppose I write a row & after the -update, I want to lock it..is there a way to do it?

How can I protect some cells so that no one can change them manually?
Of course I am updating them via a formula from another cell

If I do LOCK we cannot update them automatically.

Here's another solution in case anyone is interested later:

Option Explicit

Dim fo As Worksheet
Dim ln&, x!, s&

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Cells.CountLarge > 1 Then Exit Sub
    
    If Target.Row > 2 And Target.Column = 7 Then
        Application.EnableEvents = False
        Set fo = Sheets("OldStock2021-2022")
        If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) 

<> "" Then
            ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range

("C:C"), 0)
            x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022
            Cells(Target.Row, 3) = fo.Range("D" & ln)       'Description
            Cells(Target.Row, 4) = fo.Range("G" & ln)       'Prix
            Cells(Target.Row, 5) = x                        'Stock initial
            s = IIf(Target.Offset(0, -1) = "sell", -1, 1)   'sens du mouvement 

= 1 pour retour,-1 pour vente
            Cells(Target.Row, 9) = Target.Value * s + x     'Stock final
            fo.Range("E" & ln) = Target.Value * s + x       'Nouveau stock 

mis à jour
            Range("A" & Target.Row) = Date                  'ou = Now si on 

veut l'horodate
        Else
            MsgBox "Saisies incomplètes.", 16
            Exit Sub
        End If
    End If
    Application.EnableEvents = True
End Sub


Sub Evenement()
        Application.EnableEvents = True
End Sub

Quote from royUK

Here's an example that contains a layout to store transactions, i.e. stock in and out and a master sheet that shows current tock levels updated by formulas.

Thank you very much, I will try the same in my work & get back to you.
You are a life saver roy.

Hello, I have a workbook with two sheets Sheet 1- Oldstock 2021-2022 : It contains warehouse information Sheet 2- Transaction we are selling & returning items stated Question 1: About the information we got from the first article We have two processes: the sale (Sale) and the return (retrieval) and the quantity sold or returned After putting the quantity sold, I want to make a confirmation in order to transfer NEWSTOCK to Quantity in stock on the first sheet. Question 2: 2- How to add the current date automatically each time I add a new line I put it now () but how is it written automatically The file is attached. Thank you.

Hello everyone

this is my 1st post..

- How can we update a certain field based on a certain criteria in excel. (for several fields)
- How can we update fields in certain fields for several files linked with 1 common field?