Leandroarb
Board Regular
- Joined
- Oct 7, 2014
- Messages
- 157
Is it normal for a code to work I have to insert a line to select the spreadsheet I want it to analyze?
VBA Code:
Sub tst()
Dim matriz() As String
Dim intLinhas As Integer
Dim rngVrp As Range
Dim cel As Range
Dim cont As Integer
Sheets("Executados").Select 'IF YOU DO NOT WRITE THIS LINE DOES NOT WORK
cont = 0
Set rngVrp = Range(Cells(2, 1), Cells(WorksheetFunction.CountA(Worksheets("Executados").Range("A:A")), 1))
intLinhas = Application.WorksheetFunction.CountIf(Worksheets("Executados").Range("B:B"), 1) 'Conta o número de linhas
ReDim matriz(intLinhas, 13)
For Each cel In rngVrp
If cel.Offset(0, 1).Value = 1 Then
cont = cont + 1
For k = 1 To 13
matriz(cont, k) = Worksheets("Executados").Cells(cel.Row, k).Value
Next k
End If
Next
For linha = 1 To intLinhas
For coluna = 1 To 13
Worksheets("Print").Cells(linha, coluna).Value = matriz(linha, coluna)
Next coluna
Next linha
Sheets("Print").Select
End Sub