vba & excel 2010

Hello. In this set of number the main condition is to delete any Set of numbers that have the same different In the example by simple inspection you can realize That the first 4 sets have the same pattern [the same differences] Only the last set is random. I was wondering if I have to write...

Hello. I attempted to write a loop for this formula =IFERROR(MATCH(B2,B3:B$2904,),"") FOR XX = 2 TO Cells(Rows.Count, "B").End(xlUp).Row FOR YY = 11 TO 16 CELLS(XX, YY).FORMULA =”=IFERROR(MATCH(CELLS(2, 2).ADDRESS & “ , “ CELLS(3, 2).ADDRESS & “ : “ &...

Hello. I have this formula Range("B8").Formula = "=COUNTIF(B2:J2,B7)" I am trying to use Cells Method like: Cells(8, 2).formula = “=countif(“ & cells(2, 2) & “” : “” & cells(20, 2) & “, & cells(7, 2)” but no results. Please can you explain me why, and how to do it. or it is not possible. I...

Hello. I am working out this idea sub test0() Cells(15, 2).Formula = "=IF(" & Cells(2, 2) & ">=" & Cells(7, 2) & ",TRUE, FALSE)" Cells(31, 2).Formula = "=IF(" & Cells(18, 2) & ">=" & Cells(23, 2) & ",TRUE, FALSE)" Cells(47, 2).Formula = "=IF(" & Cells(34, 2) & ">" & Cells(39, 2) & ",TRUE...

Hi. When I record a macro for the formula IF IF(B2 > B3, true, false) of course work but reading about the Cells method supposedly B3 and cells(3, 2) are the same thing so when I substitute then do not work Sub Macro1() Cells(5, 3).Formula = "=IF(cells(1, 2) >cells(2, 2),YES, NO)"...

Hi, According to the reference cells theory: Using Range Method: Range (“C5”) Using Cells Method: Cells (5, 3) Supposedly are equal so why this macro work Sub Macro2() Range("C5").Formula = "=IF(C1<D1,TRUE,FALSE)" End Sub and this one Don't Sub MACRO3() Cells(5, 3).Formula =...

Hello. I am trying to putting together some work but the second part is difficult to find on internet what specifically I need. this is the first part of the code already accomplish with a lot help. Sub L_100m_multipleSheets() Dim SrcWS As Worksheet, DestWS As Worksheet Dim rngData As...

Hello! Table of Contents: 1. Situation (already working Makro's that are used 2. Question 3. Example I'm currently working on a personal project that is supposed to help me at work. Note: I'm not using UserForms 1. Situation: I've programmed a Macro that lets me copy Values I put into the...

Hi all. On sheet 4 I have a format on column A, start with number 1. What I want is to create 53 worksheets Starting on sheet4 as first one, then sheet 5 will have the same format " except " the cells "A1" on sheet 5 will display number 2 the cells "A1" on sheet 6 will display...

Hi all. Sub Freq_Ran() Dim freqs(), xxx As Range Set xxx = Application.InputBox("Select the cell you want to process", "Location of souce data", Default:="$H$2:$H$2800", Type:=8) ''' I would like not to use inputbox instead just search for B2 to the last row vals = xxx.Value vmax =...

Hi Everyone i have an code where the it adds the seq number according to blank row number and it works fine however if i delete any selected rows from the listbox then all of the below sequence numbers becomes and invalid and shows as attached image #REF! below it is the code to Add the...

Hi. I have a difficult one for you all. I'm trying to translate some data to different columns in VBA based on some complex criteria. Not sure on the formatting to search this stuff so hopefully someone can help ! :) What I would like to do is feed in raw data ID's under Name/Desc/Type in F...

Hello all. Sub S9_8() Dim SrcWS As Worksheet, DestWS As Worksheet Dim rngData As Range, cell As Range, M, N Dim rngDest As Range, i As Long Set SrcWS = Sheet1 '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Set DestWS = Sheet9...

Hello all. Working on: sub regre_an () Dim H, Z$() For Each H In Split("B4:B2 B20:B18 B36:B34 B52:B50 B68:B66 B84:B82") Z = Split(H, ":") Range(Z(0)).Value2 = Application.Average(Range(Z(1), Range(Z(1)).End(xlToRight))) Next...

Hello. I'm fairly new to VBA and not sure whether this could be done or not. I want to paste two rows data of data into an already opened workbook. I'll try to explain what i want in a bit more with an example. Consider a workbook "A" where data is entered manually by other people. Workbook...

Hi. working on: [B5].Value2 = Application.Count(Range("B2", [B2].End(xlToRight))) [B21].Value2 = Application.Count(Range("B18", [B18].End(xlToRight))) [B37].Value2 = Application.Count(Range("B34", [B34].End(xlToRight))) [B53].Value2 = Application.Count(Range("B50"...

Hello. the following code, work good as long my range is fix Sub L_100m() Set rngData = Sheet1.Range("B2", "B2912") m = -1 For Each cell In rngData If cell = 1 Then Sheet2.Range("C2").Offset(0, m) = n...

Hi everybody i have found this code from here and it works perfect however when it is cut it from Sheet 1 to Sheet 2 with specific word "Completed" it cut all the rows that contains "Completed" on column "AG" however it then leave the blanks rows on sheet1 is there any way that when it is moved...

Hi all I was wondering if anyone could kindly help me with the creating some code whereby when expiry Due Date in column J or Column L is due in 90 days then automated email is sent with the copying all of the information in the row each which has due date from Column A to Column M data copied...

Hi All. Working on Sub j() Range("B2").Formula = "=Countif(Q2:WAK2)" Range("C2").Formula = "=Max(Q2:WAK2)" Range("D2").Formula = "=Countif(Q2:WAK2, 0)" Range("E2").Formula = "=COUNTIF(Q2:WAK2, 1)" Range("F2").Formula = "=COUNTIF(Q2:WAK2, 2)" Range("G2").Formula =...