Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Sub Sag_01() Dim a As String Dim b As String Dim c As String Dim d As Double a = Userform1.TextBox1.Text 'Emplacement b = Userform1.TextBox2.Text 'Code c = Userform1.TextBox3.Text 'Quantité With ThisWorkbook.ActiveSheet.Range("E1:E50000") d = CDbl(b) Set m = .Find(d) If Not m Is Nothing Then ActiveCell = m.Address ActiveCell.Offset(0, 3) = a ActiveCell.Offset(0, 1) = b ActiveCell.Offset(0, 1) = c Else MsgBox ("Allo SAG") End If End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|look up for 2 numbers of 3||2||33|
|VBA - Why copy area and paste area arent the same size error?||3||38|
|Permutacion of 2 numbers COUNT||8||19|
|VBA - How to copy the data from workbook to workbook masterfile in VBA?||17||18|
Join the community of 500,000 technology professionals and ask your questions.