Recursive Code in VBA

G

Gobbomaster

New Member
Joined
May 16, 2008
Messages
28
Hi all,
I needed to have all permutations of a set of words. There can be 1 up to 9 words, and all permutations must be printed.
I discovered the update screen option and already put it to false (while calculating) but it's still impossible to calculate all the permutations of 9 words with my code. Up to 7 goes ok but my computer tried for 45 minutes to get the last one and then I stopped it (dual core 3.0 gh) Can someone perhaps change the following code into a recursive one because I don't know how to do it in VBA? Prods is the number of recursive words.

Please don't be scared of the size, I think it's just because it is not recursive.. There would probably be something like 10 lines left then.

Code: 
pastehere = 12
Application.ScreenUpdating = False

   Select Case prods
   Case 1
    For i1 = 2 To (prods + 1)
        Range(Cells(i1, 1), Cells(i1, 4)).Select
        Selection.Copy
        pasterange1 = "A" & pastehere
        Range(pasterange1).PasteSpecial Paste:=xlPasteValues
        Range(pasterange1, Cells(pastehere, 4)).BorderAround (xlContinuous)
        pastehere = pastehere + prods
    Next
   
   Case 2
    For i1 = 2 To (prods + 1)
      For i2 = 2 To (prods + 1)
         If (i1 <> i2) Then
         Range(Cells(i1, 1), Cells(i1, 4)).Select
         Selection.Copy
         pasterange1 = "A" & pastehere
         Range(pasterange1).PasteSpecial Paste:=xlPasteValues
    
         Range(Cells(i2, 1), Cells(i2, 4)).Select
         Selection.Copy
         pasterange = "A" & (pastehere + 1)
         Range(pasterange).PasteSpecial Paste:=xlPasteValues
     
         Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
         pastehere = pastehere + prods
         End If
      Next
    Next
   
   Case 3
    For i1 = 2 To (prods + 1)
      For i2 = 2 To (prods + 1)
        For i3 = 2 To (prods + 1)
            If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) Then
            Range(Cells(i1, 1), Cells(i1, 4)).Select
            Selection.Copy
            pasterange1 = "A" & pastehere
            Range(pasterange1).PasteSpecial Paste:=xlPasteValues
           
            Range(Cells(i2, 1), Cells(i2, 4)).Select
            Selection.Copy
            pasterange = "A" & (pastehere + 1)
            Range(pasterange).PasteSpecial Paste:=xlPasteValues
        
            Range(Cells(i3, 1), Cells(i3, 4)).Select
            Selection.Copy
            pasterange = "A" & (pastehere + 2)
            Range(pasterange).PasteSpecial Paste:=xlPasteValues
            
            Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
         
            pastehere = pastehere + prods
            End If
         Next
     Next
   Next
   
   Case 4
    For i1 = 2 To (prods + 1)
      For i2 = 2 To (prods + 1)
        For i3 = 2 To (prods + 1)
            For i4 = 2 To (prods + 1)
                If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) And (i1 <> i4) And (i2 <> i4) And (i3 <> i4) Then
                Range(Cells(i1, 1), Cells(i1, 4)).Select
                Selection.Copy
                pasterange1 = "A" & pastehere
                Range(pasterange1).PasteSpecial Paste:=xlPasteValues
               
                Range(Cells(i2, 1), Cells(i2, 4)).Select
                Selection.Copy
                pasterange = "A" & (pastehere + 1)
                Range(pasterange).PasteSpecial Paste:=xlPasteValues
            
                Range(Cells(i3, 1), Cells(i3, 4)).Select
                Selection.Copy
                pasterange = "A" & (pastehere + 2)
                Range(pasterange).PasteSpecial Paste:=xlPasteValues
                
                Range(Cells(i4, 1), Cells(i4, 4)).Select
                Selection.Copy
                pasterange = "A" & (pastehere + 3)
                Range(pasterange).PasteSpecial Paste:=xlPasteValues
            
                Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
             
                pastehere = pastehere + prods
                End If
                Next
            Next
        Next
    Next
   
    Case 5
    For i1 = 2 To (prods + 1)
        For i2 = 2 To (prods + 1)
            For i3 = 2 To (prods + 1)
                For i4 = 2 To (prods + 1)
                    For i5 = 2 To (prods + 1)
                        If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) And (i1 <> i4) And (i2 <> i4) And (i3 <> i4) And (i1 <> i5) And (i2 <> i5) And (i3 <> i5) And (i4 <> i5) Then
                        Range(Cells(i1, 1), Cells(i1, 4)).Select
                        Selection.Copy
                        pasterange1 = "A" & pastehere
                        Range(pasterange1).PasteSpecial Paste:=xlPasteValues
                       
                        Range(Cells(i2, 1), Cells(i2, 4)).Select
                        Selection.Copy
                        pasterange = "A" & (pastehere + 1)
                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                    
                        Range(Cells(i3, 1), Cells(i3, 4)).Select
                        Selection.Copy
                        pasterange = "A" & (pastehere + 2)
                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                        
                        Range(Cells(i4, 1), Cells(i4, 4)).Select
                        Selection.Copy
                        pasterange = "A" & (pastehere + 3)
                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                        
                        Range(Cells(i5, 1), Cells(i5, 4)).Select
                        Selection.Copy
                        pasterange = "A" & (pastehere + 4)
                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                    
                        Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
                     
                        pastehere = pastehere + prods
                        End If
                    Next
                Next
            Next
        Next
    Next
   
    Case 5
    For i1 = 2 To (prods + 1)
        For i2 = 2 To (prods + 1)
            For i3 = 2 To (prods + 1)
                For i4 = 2 To (prods + 1)
                    For i5 = 2 To (prods + 1)
                        For i6 = 2 To (prods + 1)
                            If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) And (i1 <> i4) And (i2 <> i4) And (i3 <> i4) And (i1 <> i5) And _
                            (i2 <> i5) And (i3 <> i5) And (i4 <> i5) And (i1 <> i6) And (i2 <> i6) And (i3 <> i6) And (i4 <> i6) And (i5 <> i6) Then
                            Range(Cells(i1, 1), Cells(i1, 4)).Select
                            Selection.Copy
                            pasterange1 = "A" & pastehere
                            Range(pasterange1).PasteSpecial Paste:=xlPasteValues
                           
                            Range(Cells(i2, 1), Cells(i2, 4)).Select
                            Selection.Copy
                            pasterange = "A" & (pastehere + 1)
                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                        
                            Range(Cells(i3, 1), Cells(i3, 4)).Select
                            Selection.Copy
                            pasterange = "A" & (pastehere + 2)
                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                            
                            Range(Cells(i4, 1), Cells(i4, 4)).Select
                            Selection.Copy
                            pasterange = "A" & (pastehere + 3)
                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                            
                            Range(Cells(i5, 1), Cells(i5, 4)).Select
                            Selection.Copy
                            pasterange = "A" & (pastehere + 4)
                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                            
                            Range(Cells(i6, 1), Cells(i6, 4)).Select
                            Selection.Copy
                            pasterange = "A" & (pastehere + 5)
                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                        
                            Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
                         
                            pastehere = pastehere + prods
                            End If
                        Next
                    Next
                Next
            Next
        Next
    Next
    
    Case 6
    For i1 = 2 To (prods + 1)
        For i2 = 2 To (prods + 1)
            For i3 = 2 To (prods + 1)
                For i4 = 2 To (prods + 1)
                    For i5 = 2 To (prods + 1)
                        For i6 = 2 To (prods + 1)
                            For i7 = 2 To (prods + 1)
                                If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) And (i1 <> i4) And (i2 <> i4) And (i3 <> i4) And (i1 <> i5) And _
                                (i2 <> i5) And (i3 <> i5) And (i4 <> i5) And (i1 <> i6) And (i2 <> i6) And (i3 <> i6) And (i4 <> i6) And _
                                (i5 <> i6) And (i1 <> i7) And (i2 <> i7) And (i3 <> i7) And (i4 <> i7) And (i5 <> i7) And (i6 <> i7) Then
                                Range(Cells(i1, 1), Cells(i1, 4)).Select
                                Selection.Copy
                                pasterange1 = "A" & pastehere
                                Range(pasterange1).PasteSpecial Paste:=xlPasteValues
                               
                                Range(Cells(i2, 1), Cells(i2, 4)).Select
                                Selection.Copy
                                pasterange = "A" & (pastehere + 1)
                                Range(pasterange).PasteSpecial Paste:=xlPasteValues
                            
                                Range(Cells(i3, 1), Cells(i3, 4)).Select
                                Selection.Copy
                                pasterange = "A" & (pastehere + 2)
                                Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                
                                Range(Cells(i4, 1), Cells(i4, 4)).Select
                                Selection.Copy
                                pasterange = "A" & (pastehere + 3)
                                Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                
                                Range(Cells(i5, 1), Cells(i5, 4)).Select
                                Selection.Copy
                                pasterange = "A" & (pastehere + 4)
                                Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                
                                Range(Cells(i6, 1), Cells(i6, 4)).Select
                                Selection.Copy
                                pasterange = "A" & (pastehere + 5)
                                Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                
                                Range(Cells(i7, 1), Cells(i7, 4)).Select
                                Selection.Copy
                                pasterange = "A" & (pastehere + 6)
                                Range(pasterange).PasteSpecial Paste:=xlPasteValues
                            
                                Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
                             
                                pastehere = pastehere + prods
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    
    Case 7
    For i1 = 2 To (prods + 1)
        For i2 = 2 To (prods + 1)
            For i3 = 2 To (prods + 1)
                For i4 = 2 To (prods + 1)
                    For i5 = 2 To (prods + 1)
                        For i6 = 2 To (prods + 1)
                            For i7 = 2 To (prods + 1)
                                For i8 = 2 To (prods + 1)
                                    If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) And (i1 <> i4) And (i2 <> i4) And (i3 <> i4) And (i1 <> i5) And _
                                    (i2 <> i5) And (i3 <> i5) And (i4 <> i5) And (i1 <> i6) And (i2 <> i6) And (i3 <> i6) And (i4 <> i6) And _
                                    (i5 <> i6) And (i1 <> i7) And (i2 <> i7) And (i3 <> i7) And (i4 <> i7) And (i5 <> i7) And (i6 <> i7) And _
                                    (i1 <> i8) And (i2 <> i8) And (i3 <> i8) And (i4 <> i8) And (i5 <> i8) And (i6 <> i8) And (i7 <> i8) Then
                                    Range(Cells(i1, 1), Cells(i1, 4)).Select
                                    Selection.Copy
                                    pasterange1 = "A" & pastehere
                                    Range(pasterange1).PasteSpecial Paste:=xlPasteValues
                                   
                                    Range(Cells(i2, 1), Cells(i2, 4)).Select
                                    Selection.Copy
                                    pasterange = "A" & (pastehere + 1)
                                    Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                
                                    Range(Cells(i3, 1), Cells(i3, 4)).Select
                                    Selection.Copy
                                    pasterange = "A" & (pastehere + 2)
                                    Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                    
                                    Range(Cells(i4, 1), Cells(i4, 4)).Select
                                    Selection.Copy
                                    pasterange = "A" & (pastehere + 3)
                                    Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                    
                                    Range(Cells(i5, 1), Cells(i5, 4)).Select
                                    Selection.Copy
                                    pasterange = "A" & (pastehere + 4)
                                    Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                    
                                    Range(Cells(i6, 1), Cells(i6, 4)).Select
                                    Selection.Copy
                                    pasterange = "A" & (pastehere + 5)
                                    Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                    
                                    Range(Cells(i7, 1), Cells(i7, 4)).Select
                                    Selection.Copy
                                    pasterange = "A" & (pastehere + 6)
                                    Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                    
                                    Range(Cells(i8, 1), Cells(i8, 4)).Select
                                    Selection.Copy
                                    pasterange = "A" & (pastehere + 7)
                                    Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                
                                    Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
                                 
                                    pastehere = pastehere + prods
                                    End If
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    
    Case 8
    For i1 = 2 To (prods + 1)
        For i2 = 2 To (prods + 1)
            For i3 = 2 To (prods + 1)
                For i4 = 2 To (prods + 1)
                    For i5 = 2 To (prods + 1)
                        For i6 = 2 To (prods + 1)
                            For i7 = 2 To (prods + 1)
                                For i8 = 2 To (prods + 1)
                                    For i9 = 2 To (prods + 1)
                                        If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) And (i1 <> i4) And (i2 <> i4) And (i3 <> i4) And (i1 <> i5) And _
                                        (i2 <> i5) And (i3 <> i5) And (i4 <> i5) And (i1 <> i6) And (i2 <> i6) And (i3 <> i6) And (i4 <> i6) And _
                                        (i5 <> i6) And (i1 <> i7) And (i2 <> i7) And (i3 <> i7) And (i4 <> i7) And (i5 <> i7) And (i6 <> i7) And _
                                        (i1 <> i8) And (i2 <> i8) And (i3 <> i8) And (i4 <> i8) And (i5 <> i8) And (i6 <> i8) And (i7 <> i8) And _
                                        (i1 <> i9) And (i2 <> i9) And (i3 <> i9) And (i4 <> i9) And (i5 <> i9) And (i6 <> i9) And (i7 <> i9) And _
                                        (i8 <> i9) Then
                                        Range(Cells(i1, 1), Cells(i1, 4)).Select
                                        Selection.Copy
                                        pasterange1 = "A" & pastehere
                                        Range(pasterange1).PasteSpecial Paste:=xlPasteValues
                                       
                                        Range(Cells(i2, 1), Cells(i2, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 1)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                    
                                        Range(Cells(i3, 1), Cells(i3, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 2)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                        Range(Cells(i4, 1), Cells(i4, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 3)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                        Range(Cells(i5, 1), Cells(i5, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 4)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                        Range(Cells(i6, 1), Cells(i6, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 5)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                        Range(Cells(i7, 1), Cells(i7, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 6)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                        Range(Cells(i8, 1), Cells(i8, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 7)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                        Range(Cells(i9, 1), Cells(i9, 4)).Select
                                        Selection.Copy
                                        pasterange = "A" & (pastehere + 8)
                                        Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                    
                                        Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
                                     
                                        pastehere = pastehere + prods
                                        End If
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    
    Case 9
    For i1 = 2 To (prods + 1)
        For i2 = 2 To (prods + 1)
            For i3 = 2 To (prods + 1)
                For i4 = 2 To (prods + 1)
                    For i5 = 2 To (prods + 1)
                        For i6 = 2 To (prods + 1)
                            For i7 = 2 To (prods + 1)
                                For i8 = 2 To (prods + 1)
                                    For i9 = 2 To (prods + 1)
                                        For i10 = 2 To (prods + 1)
                                            If (i1 <> i2) And (i1 <> i3) And (i2 <> i3) And (i1 <> i4) And (i2 <> i4) And (i3 <> i4) And (i1 <> i5) And _
                                            (i2 <> i5) And (i3 <> i5) And (i4 <> i5) And (i1 <> i6) And (i2 <> i6) And (i3 <> i6) And (i4 <> i6) And _
                                            (i5 <> i6) And (i1 <> i7) And (i2 <> i7) And (i3 <> i7) And (i4 <> i7) And (i5 <> i7) And (i6 <> i7) And _
                                            (i1 <> i8) And (i2 <> i8) And (i3 <> i8) And (i4 <> i8) And (i5 <> i8) And (i6 <> i8) And (i7 <> i8) And _
                                            (i1 <> i9) And (i2 <> i9) And (i3 <> i9) And (i4 <> i9) And (i5 <> i9) And (i6 <> i9) And (i7 <> i9) And _
                                            (i8 <> i9) And (i1 <> i10) And (i2 <> i10) And (i3 <> i10) And (i4 <> i10) And (i5 <> i10) And (i6 <> i10) And _
                                            (i7 <> i10) And (i8 <> i10) And (i9 <> i10) Then
                                            Range(Cells(i1, 1), Cells(i1, 4)).Select
                                            Selection.Copy
                                            pasterange1 = "A" & pastehere
                                            Range(pasterange1).PasteSpecial Paste:=xlPasteValues
                                           
                                            Range(Cells(i2, 1), Cells(i2, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 1)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                            Range(Cells(i3, 1), Cells(i3, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 2)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                            
                                            Range(Cells(i4, 1), Cells(i4, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 3)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                            
                                            Range(Cells(i5, 1), Cells(i5, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 4)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                            
                                            Range(Cells(i6, 1), Cells(i6, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 5)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                            
                                            Range(Cells(i7, 1), Cells(i7, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 6)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                            
                                            Range(Cells(i8, 1), Cells(i8, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 7)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                            
                                            Range(Cells(i9, 1), Cells(i9, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 8)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                            
                                            Range(Cells(i10, 1), Cells(i10, 4)).Select
                                            Selection.Copy
                                            pasterange = "A" & (pastehere + 9)
                                            Range(pasterange).PasteSpecial Paste:=xlPasteValues
                                        
                                            Range(pasterange1, Cells((pastehere + (prods - 1)), 4)).BorderAround (xlContinuous)
                                         
                                            pastehere = pastehere + prods
                                            End If
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    End Select
  Application.ScreenUpdating = True
 

Excel Facts

Why are there 1,048,576 rows in Excel?
The Excel team increased the size of the grid in 2007. There are 2^20 rows and 2^14 columns for a total of 17 billion cells.
Sort by date Sort by votes
You can only nest 7 If statements


Try posting a sample of your data and your expected outcome.

What you are trying to achieve isnt clear.
 
Upvote 0
Well, I tried explaining it in another thread but I didn't get any replies so I started myself. I didn't nest more than 7 if statements, there is only 1 per case. I nested 9 for loops with make it terribly slow.
 
Upvote 0
This article might help:
http://www.j-walk.com/ss/excel/tips/tip46.htm

The code is really short but works with letters in a string (max 8 but you can delete that) and not with words in a sentence.

Rich (BB code): 
Dim CurrentRow

Sub GetString()
    Dim InString As String
    InString = InputBox("Enter text to permute:")
    If Len(InString) < 2 Then Exit Sub
    If Len(InString) >= 8 Then
        MsgBox "Too many permutations!"
        Exit Sub
    Else
        ActiveSheet.Columns(1).Clear
        CurrentRow = 1
        Call GetPermutation("", InString)
    End If
End Sub

Sub GetPermutation(x As String, y As String)
'   The source of this algorithm is unknown
    Dim i As Integer, j As Integer
    j = Len(y)
    If j < 2 Then
        Cells(CurrentRow, 1) = x & y
        CurrentRow = CurrentRow + 1
    Else
        For i = 1 To j
            Call GetPermutation(x + Mid(y, i, 1), _
            Left(y, i - 1) + Right(y, j - i))
        Next
    End If
End Sub</pre>
 
Upvote 0
Thinking about it, you could just make 2 other subs:
1. Asks the sentence (set of words) and counts the words.
If the sentence has 6 words, you make 6 variables a-f which each replaces a word in the sentence. You then run the Sub above, which imo places the permutations on separate rows/columns (so 6 columns wide, 720 rows deep)

2. After the sub, replace a-f with the set of words you had in the first sub.

HTH.
 
Upvote 0
The problem is, that I have 4 columns per row, and they together are an entity, so a word.
This means that all permutations should be listed on a new row (I'll separate them with borders), giving me (using your example) 6*720 = 4320 rows, every 6 rows represent 1 permutation. But I'll give this a try and implement it, thank you!
 
Upvote 0
You must log in or register to reply here.

Similar threads

G
  • Question
Slow VBA code
Replies
1
Views
132
Tupe77
T
H
  • Solved
Copy File Names where Month and Year Matches
Replies
6
Views
271
howard
H
S
  • Solved
Copy/Paste cell if checkbox selected
Replies
4
Views
311
kevin9999
K
G
  • Question
VBA help - copy cells from specific table to specific table on another sheet.
Replies
0
Views
296
GardianAngelUK
G
L
  • Solved
Dynamic sum range based on cell value input
Replies
3
Views
296
Coyotex3
C

Forum statistics

Threads
1,215,054
Messages
6,122,895
Members
449,097
Latest member
dbomb1414

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