ws.cellsnr

Hi, Can someone please help me translate this function to VBA? =IF(G5="Delivery",(10000+IF(D5="Ain Jarfa",1000,3000)),10000) I need it in Sub cmdNew_Click as: ws.Cells(nr, "I").formula = (The above function) Note: Instead of "G5" put (ws.Cells(nr, "G")) Instead of "D5" put (ws.Cells(nr...

Hello, I have the following code to add the input BarCode and it's related details to the next available raw in sheet2 column ("P") Here is a piece of my code that works fine: [CODE]Dim ws As WorksheetSet ws = Sheet2 nr = ws.Cells(Rows.Count, "P").End(xlUp).Row + 1 ws.Cells(nr, "P") =...

Hello, I have a userform with a lot of textboxes, one of these textboxes is "txtBarCode" that allows me to enter any Barcode to check if the item is exist or not and lookup values for "txtItemName" & "txtPrice" and I have the code below that works very well But, sometimes I need to enter the...

Hello, I have a userform to add items to sheet1 and I'm using the code below, and inserting manually formulas to columns ("C" "E" "F" "G") Private Sub cmdAdd_Click()Dim ws As Worksheet Dim MsgBoxResult As Long Set ws = Sheet1 nr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.Cells(nr, 1) =...

Hello, I have the code below for a user form to enter some data on my sheet "Expenses" TextBox1 including date as shown on the second code Once I enter the data to the sheet, it shows the date as text TextBox4 including the amount Once I enter the data to the sheet, it shows the number as...