Code To Look For Number On Sheet 2, When Found Insert Row & Add Number Next To It

Dazzawm

Dazzawm

Well-known Member
Joined
Jan 24, 2011
Messages
3,748
Office Version
  1. 365
Platform
  1. Windows
Hi, I have sheet 1 with 3 columns of data. The code needs to look for the number that is in column C on sheet 1 on sheet 2. When it is found I need a row inserted below on sheet 1 with the numbers that are next to that number on sheet 2. The example below will explain better.

Excel Workbook
ABC
109AR145161001EFAR8008
1110AR145161001ECAR5012
1211AR145161001EXAR9001
Sheet1



Excel Workbook
ABCD
21EFAR8008EMG002Gasket
32ECAR5012EMG002Gasket
43ECAR5012EMG171Gasket
54EXAR9001EMR031Rubber
65EXAR9001EMR113Rubber
76EXAR9001EMR130Rubber
Sheet2



Excel Workbook
ABCD
109AR145161001EFAR8008
119AR145161001EMG002Gasket
1210AR145161001ECAR5012
1310AR145161001EMG002Gasket
1410AR145161001EMG171Gasket
1511AR145161001EXAR9001
1611AR145161001EMR031Rubber
1711AR145161001EMR113Rubber
1811AR145161001EMR130Rubber
Sheet1 Result


As you can see in the 3rd table is the result on sheet 1. It has found wherever the number is on sheet 2 and add the data that is next to it in columns C & D on sheet 2. Please help and can get big brownie points from my Director!!!
 
Sort by date Sort by votes
Oops, me bad!

Using the same variable to determine the last row is constantly changing the range we are looping through.
Try this:
Rich (BB code): 
Option Explicit


Sub test()
   Dim wsSource As Worksheet
   Dim wsTarget As Worksheet
   Dim strFind As String
   Dim rowCopy As Long
   Dim rowPaste As Long
   Dim i As Long
   Dim lrTarget As Long
   Dim lrSource As Long
   Dim strFoundAddress As String
   Dim rngFound As Range
   Dim strId As String
   Dim lngId As Long
   
   Set wsTarget = Sheets("Sheet1")
   Set wsSource = Sheets("Sheet2")
   
   'get the last row
   lrTarget = wsTarget.Range("A" & Rows.Count).End(xlUp).Row
   rowPaste = lrTarget


      For i = 10 To lrTarget
         With wsTarget
            lngId = .Range("A" & i).Value             'eg 1, 2, 3, etc
            strId = .Range("B" & i).Value             'eg AR145....
            strFind = wsTarget.Range("C" & i).Value   'eg EFAR.....
         End With
         
         'get the last row on the souce sheet
         lrSource = wsSource.Range("A" & Rows.Count).End(xlUp).Row
         With wsSource.Range("A2:D" & lrSource)
            Set rngFound = .Find(strFind, LookIn:=xlValues)
            
            If Not rngFound Is Nothing Then
               strFoundAddress = rngFound.Address
               
               Do
                  rowCopy = rngFound.Row


                  'was the string found?
                   If rowCopy <> 0 Then
                      rowPaste = rowPaste + 1
                      
                      'copy and paste
                      wsTarget.Range("A" & rowPaste).Value = lngId
                      wsTarget.Range("B" & rowPaste).Value = strId
                      wsSource.Range("C" & rowCopy & ":D" & rowCopy).Copy _
                         Destination:=wsTarget.Range("C" & rowPaste)
                   End If
              
                  If Not rngFound Is Nothing Then
                     Set rngFound = .FindNext(rngFound)
                  End If
                  
               Loop While Not rngFound Is Nothing And rngFound.Address <> strFoundAddress
            End If
         End With
      Next i
      
      'sort the output
      wsTarget.Range("A10").Sort _
        Key1:=wsTarget.Columns("A"), _
        Header:=xlGuess
      
   'tidy up
   Set wsSource = Nothing
   Set wsTarget = Nothing
   Set rngFound = Nothing
End Sub

If this doesn't work then check the output values. I am thinking that we may be overwriting previous output.
 
Upvote 0

Excel Facts

Waterfall charts in Excel?
Office 365 customers have access to Waterfall charts since late 2016. They were added to Excel 2019.
Its working but taking a real long time but I suppose thats a good thing! It does have about 70000 rows to do. What does it do copy them all to the bottom then delete them from the top?
 
Upvote 0
Actually its now frozen. The circle has stopped going round and I have just the arrow but it wont respond.

Edit: I had to escape to stop it and it looks like it was doing the job as they are all at the bottom then it does a sort at then does it? It is really struggling with so many rows can anything be done. I do have quite a powerful laptop too. Thanks.
 
Last edited:
Upvote 0
Press Esc to abort a running macro.

To copy sheet2 below Sheet1 then you may have to change your output.

<div><b>Sheet1</b><br><table style="border-collapse:collapse;border:1px solid #c2c2c2;font-family:Arial, Helvetica, sans-serif;font-size:1em;">
<tr><td style="border:1px solid #c2c2c2;padding: 1px;background-color:#dae7f5;text-align: center;"> </td>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;padding: 1px;text-align:center;width:81px;">A</td>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;padding: 1px;text-align:center;width:81px;">B</td>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;padding: 1px;text-align:center;width:81px;">C</td>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;padding: 1px;text-align:center;width:48px;">D</td>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;padding: 1px;text-align:center;width:48px;">E</td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">10</td>
<td style="padding:1px;
text-align:right;
color:#333333;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">9</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">AR145161001</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EFAR8008</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">11</td>
<td style="padding:1px;
text-align:right;
color:#333333;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">10</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">AR145161001</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">ECAR5012</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">12</td>
<td style="padding:1px;
text-align:right;
color:#333333;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">11</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">AR145161001</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EXAR9001</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">13</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EFAR8008</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EMG002</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">Gasket</td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">14</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">ECAR5012</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EMG002</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">Gasket</td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">15</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">ECAR5012</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EMG171</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">Gasket</td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">16</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EXAR9001</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EMR031</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">Rubber</td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">17</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EXAR9001</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EMR113</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">Rubber</td>
</tr>
<tr>
<td style="background-color:#dae7f5;border:1px solid #c2c2c2;width:40px;height:15px;padding: 1px;text-align:center;">18</td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:right;
color:#000000;
background-color:#FFFFFF;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
"></td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EXAR9001</td>
<td style="padding:1px;
text-align:left;
color:#FF0000;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">EMR130</td>
<td style="padding:1px;
text-align:left;
color:#333333;
background-color:#FFFF00;
font-weight:normal;font-style:normal;text-decoration:none;
border-top:thin solid #000000;border-right:thin solid #000000;border-bottom:thin solid #000000;border-left:thin solid #000000;
">Rubber</td>
</tr>
</table></div>

But, to fill in the blanks you will still need to loop through your 70k rows.
 
Upvote 0
I did abort then done the sort manually and it had worked but only about 7000 rows of the 80000. Thats when it froze, can anything be done to the code to help it or do I run it again and just hope!?
 
Upvote 0
I can only see two thing which should speed up the code:
1.we don't need to calcultae the last row of the source data 70k times, so do this before the do...Loop.
2. Clear the memory for the rngFound variable
Rich (BB code): 
Option Explicit


Sub test()
   Dim wsSource As Worksheet
   Dim wsTarget As Worksheet
   Dim strFind As String
   Dim rowCopy As Long
   Dim rowPaste As Long
   Dim i As Long
   Dim lrTarget As Long
   Dim lrSource As Long
   Dim strFoundAddress As String
   Dim rngFound As Range
   Dim strId As String
   Dim lngId As Long
   
   Set wsTarget = Sheets("Sheet1")
   Set wsSource = Sheets("Sheet2")
   
   'get the last row
   lrTarget = wsTarget.Range("A" & Rows.Count).End(xlUp).Row
   lrSource = wsSource.Range("A" & Rows.Count).End(xlUp).Row
   rowPaste = lrTarget


      For i = 10 To lrTarget
         With wsTarget
            lngId = .Range("A" & i).Value             'eg 1, 2, 3, etc
            strId = .Range("B" & i).Value             'eg AR145....
            strFind = wsTarget.Range("C" & i).Value   'eg EFAR.....
         End With
         
         'get the last row on the souce sheet


         With wsSource.Range("A2:D" & lrSource)
            Set rngFound = .Find(strFind, LookIn:=xlValues)
            
            If Not rngFound Is Nothing Then
               strFoundAddress = rngFound.Address
               
               Do
                  rowCopy = rngFound.Row


                  'was the string found?
                   If rowCopy <> 0 Then
                      rowPaste = rowPaste + 1
                      
                      'copy and paste
                      wsTarget.Range("A" & rowPaste).Value = lngId
                      wsTarget.Range("B" & rowPaste).Value = strId
                      wsSource.Range("C" & rowCopy & ":D" & rowCopy).Copy _
                         Destination:=wsTarget.Range("C" & rowPaste)
                   End If
              
                  If Not rngFound Is Nothing Then
                     Set rngFound = .FindNext(rngFound)
                  End If
                  
               Loop While Not rngFound Is Nothing And rngFound.Address <> strFoundAddress
            End If
         End With
         Set rngFound = Nothing
      Next i
      
      'sort the output
      wsTarget.Range("A10").Sort _
        Key1:=wsTarget.Columns("A"), _
        Header:=xlGuess
      
   'tidy up
   Set wsSource = Nothing
   Set wsTarget = Nothing
   Set rngFound = Nothing
End Sub
 
Upvote 0
Did it work your end on the file I sent you?
 
Upvote 0
The latest code didnt seem to work. It copied one row 100s of times and again I had to abort.
 
Upvote 0
Try this alternative.
The code copies all the data from sheet2 into sheet1.
Sorts on column C.
Loops through the merged data filling in the empty cells.
Does this do what you are looking for?

Rich (BB code): 
Sub test02()
   Dim lr As Long
   Dim rng As Range
   
   '===============
   'copy and paste
   '===============
   With Sheets("Sheet2")
      lr = .Range("A" & .Rows.Count).End(xlUp).Row
      .Range("B2:D" & lr).Copy
   End With
   With Sheets("Sheet1")
     lr = .Range("A" & .Rows.Count).End(xlUp).Row + 1
     .Range("C" & lr).PasteSpecial Paste:=xlValues
   End With
   Application.CutCopyMode = False
   
   '==================
   'sort the data
   '==============
   Sheets("Sheet1").Range("C1").Sort _
         Key1:=Sheets("Sheet1").Columns("C"), _
         Header:=xlGuess


   
   '===================
   'process sorted data
   '===================
   processSortedData
   
   
   'sort the data on column A?
   'copy above sort, change "C" to "A"
End Sub




Sub processSortedData()
   Dim i As Long
   Dim lr As Long
   
   With Sheets("Sheet1")
      lr = .Range("C" & .Rows.Count).End(xlUp).Row
      
      For i = 2 To lr
         If .Range("A" & i).Value = "" Then
            .Range("A" & i).Value = .Range("A" & i - 1).Value
            .Range("B" & i).Value = .Range("B" & i - 1).Value
         End If
      Next
   End With
End Sub
 
Upvote 0
It sort of works, but it only does about 10% of the numbers. If you try it on the file I sent you some rows are copied several hundred times. This is so frustrating!!! I appeciate all your efforts but we are not quite there.
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Question
Dynamically add new rows via VBA when using IFERROR TEXTJOIN and FILTER formulas from Table?
Replies
0
Views
79
AlfredDB
A
N
  • Question
Insert 3 blank rows when value changes
Replies
3
Views
57
mumps
mumps
rjplante
  • Solved
sort numbers with letters
2 3
Replies
24
Views
318
Akuini
Akuini
M
  • Solved
Need help modify to pick any first number of my choice
Replies
6
Views
274
motilulla
M
M
  • Question
Help with VBA code when selecting next sheet in workbook
Replies
3
Views
194
StephenCrump
S

Forum statistics

Threads
1,214,979
Messages
6,122,560
Members
449,089
Latest member
Motoracer88

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top