Este fórum está sendo desativado

[BrunoSNascimento]

Galera,

Fiz essa macro com muito sacrifício, pois sou novo nisso e agora ela não esta funcionando, alguém pode me ajudar?


Sub Salvar()

Salvar Macro


With ThisWorkbook.Worksheets("Rawdata")
RowCount = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Range("Rawdata!A2" & RowCount + 1).Value = Range("Monitoria!D4").Value
Range("Rawdata!B3" & RowCount + 1).Value = Range("Monitoria!D6").Value
Range("Rawdata!C3" & RowCount + 1).Value = Range("Monitoria!L4").Value
Range("Rawdata!D3" & RowCount + 1).Value = Range("Monitoria!K9").Value
Range("Rawdata!E3" & RowCount + 1).Value = Range("Monitoria!K10").Value
Range("Rawdata!F3" & RowCount + 1).Value = Range("Monitoria!K11").Value
Range("Rawdata!G3" & RowCount + 1).Value = Range("Monitoria!K12").Value
Range("Rawdata!H3" & RowCount + 1).Value = Range("Monitoria!K15").Value
Range("Rawdata!I3" & RowCount + 1).Value = Range("Monitoria!K16").Value
Range("Rawdata!J3" & RowCount + 1).Value = Range("Monitoria!K17").Value
Range("Rawdata!K3" & RowCount + 1).Value = Range("Monitoria!K18").Value
Range("Rawdata!L3" & RowCount + 1).Value = Range("Monitoria!K21").Value
Range("Rawdata!M3" & RowCount + 1).Value = Range("Monitoria!K22").Value
Range("Rawdata!N3" & RowCount + 1).Value = Range("Monitoria!K23").Value
Range("Rawdata!O3" & RowCount + 1).Value = Range("Monitoria!K24").Value
Range("Rawdata!P3" & RowCount + 1).Value = Range("Monitoria!K25").Value
Range("Rawdata!Q3" & RowCount + 1).Value = Range("Monitoria!K26").Value
Range("Rawdata!R3" & RowCount + 1).Value = Range("Monitoria!K29").Value
Range("Rawdata!S3" & RowCount + 1).Value = Range("Monitoria!K30").Value
Range("Rawdata!T3" & RowCount + 1).Value = Range("Monitoria!K31").Value
Range("Rawdata!U3" & RowCount + 1).Value = Range("Monitoria!K32").Value
Range("Rawdata!V3" & RowCount + 1).Value = Range("Monitoria!K33").Value
Range("Rawdata!W3" & RowCount + 1).Value = Range("Monitoria!K34").Value

'
End Sub

[babdallas]

Veja se é isso. Se não for, anexa um exemplo, por favor.

Código: Selecionar todos

Sub Salvar()
    Dim i As Byte
    
    With ThisWorkbook.Worksheets("Rawdata")
        RowCount = .Cells(.Rows.Count, "A").End(xlUp).Row
        
        .Range(RowCount + 1, 1).Value = Workheets("Monitoria").Range("D4").Value
        .Range(RowCount + 1, 2).Value = Workheets("Monitoria").Range("D6").Value
        .Range(RowCount + 1, 3).Value = Workheets("Monitoria").Range("L4").Value
        
        For i = 4 To 17
            .Range(RowCount + 1, i).Value = Workheets("Monitoria").Range(i + 5, 11).Value
        Next i
        
        For i = 18 To 23
            .Range(RowCount + 1, i).Value = Workheets("Monitoria").Range(i + 11, 11).Value
        Next i
    End With
End Sub

[BrunoSNascimento]

Quase rolou,

Depurou nessa linha


.Range(RowCount + 1, i).Value = Worksheets("Monitoria").Range(i + 5, 11).Value