Hi @Anita I’m suggesting you a bttr on, has more variety,, try this,, ☺ Sub InsertRowsAsValueChange() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = “Insert Range” Set WorkRng = Application.Selection Set WorkRng = Application.InputBox( “Range” , xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False For i = WorkRng.Rows.Count To 2 Step … Read more
First of all you need to loop through all your worksheets for both, open the 2 workbooks, and loop through both, then you can select them, compare if their name exists in the other worksheet, if not, you add it, otherwise, you copy the content from one to the other one and at the end … Read more
The problem is that the numbers are being calculated to a higher precision. Try, =ABS(ROUND(K2, 2)*(ROUND(K11, 2)-ROUND(K10, 2))/ROUND(K13, 2)) Look into the ‘Precision as displayed’ option but be sure to understand all of the caveats before deciding to do it.
A solution with a formula only: We assume that A1=1-3. Fill the following formula into A2 and copy it down. =IF(A1<>””,IF(ISNUMBER(A1),IF(A1+1<=VALUE(RIGHT(A$1,LEN(A$1)-FIND(“-“,A$1))),A1+1,””),VALUE(LEFT(A$1,FIND(“-“,A$1)-1))),””) The result will be 1 2 3 This works for any numbers devided by -.
genPsw <- function(num, len=8) { myArr <- c(“”, 2, 3, 4, 5, 6, 7, 8, 9, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “J”, “K”, “L”, “M”, “N”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, … Read more
if A1 contains 7.5 then write in B1 =A1/7.5.
Assuming your table B is in sheet2 and table A is in sheet1 then Sub test() Sheets(“Sheet2”).Range(“TableB”).Copy Sheets(“Sheet1”).Range(“TableA”).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=True, Transpose:=False End Sub
As per your comment you want to loop through your range then try the below. This is just a for loop in VBA sub testcode() dim i as double dim yournametofind as string for i = 2 to 20 yournametofind = Worksheets(“DataValues”).Range(“A” & i).value if yournametofind = yournametofind then ‘do your things else do your … Read more
This would work: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = “In service” Then Target = “Out of service” ElseIf Target.Value = “Out of service” Then Target = “In service” End If End Sub
Option Explicit Sub wqewrty() With Worksheets(“sheet1″).Cells(1, 1).CurrentRegion .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _ Key2:=.Columns(2), Order2:=xlAscending, _ Orientation:=xlTopToBottom, Header:=xlNo With .Columns(1).Offset(1, 0) .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:=”=$A2=$A1” .FormatConditions(1).NumberFormat = “;;;” End With End With End Sub I’ve assumed that you wanted to use column B as a secondary sort key to the primary sort key on column A. If … Read more