Este fórum está sendo desativado

[juliotorres]

Boa tarde, pessoal.

O que fazer para reduzir o código abaixo, uma vez que os comandos são todos iguais, de forma que se eu tiver 50 empresas, não precisarei repetir o mesmo código 50 vezes?

Private Sub cboEmpresasS_Change()

If cboEmpresasS.Value = "EmpresaA" Then
ThisWorkbook.Worksheets("EmpresaA").Activate
Range("Q5").Select
cboClienteNF.RowSource = "EmpresaA!AO5:AO80"
SaldoEmpKg = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 2, False)
SaldoEmpVr = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 3, False)
SaldoEmpKg = Format(SaldoEmpKg, "#,##0.00")
SaldoEmpVr = Format(SaldoEmpVr, "Currency")

ElseIf cboEmpresasS.Value = "EmpresaB" Then
ThisWorkbook.Worksheets("EmpresaB").Activate
Range("Q5").Select
cboClienteNF.RowSource = "EmpresaB!AO5:AO80"
SaldoEmpKg = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 2, False)
SaldoEmpVr = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 3, False)
SaldoEmpKg = Format(SaldoEmpKg, "#,##0.00")
SaldoEmpVr = Format(SaldoEmpVr, "Currency")

ElseIf cboEmpresasS.Value = "EmpresaC" Then
ThisWorkbook.Worksheets("EmpresaC").Activate
Range("Q5").Select
cboClienteNF.RowSource = "EmpresaC!AO5:AO80"
SaldoEmpKg = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 2, False)
SaldoEmpVr = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 3, False)
SaldoEmpKg = Format(SaldoEmpKg, "#,##0.00")
SaldoEmpVr = Format(SaldoEmpVr, "Currency")

End If

End Sub

[Reinaldo]

Sem testar, por motivos obvios; mas
Experimente

Código: Selecionar todos

Private Sub cboEmpresasS_Change()
ThisWorkbook.Worksheets(cboEmpresasS.Value).Activate
Range("Q5").Select
cboClienteNF.RowSource = cboEmpresasS.Value & "!AO5:AO80"
SaldoEmpKg = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 2, False)
SaldoEmpVr = Application.WorksheetFunction.VLookup(cboEmpresasS, Range("AO5:AQ860"), 3, False)
SaldoEmpKg = Format(SaldoEmpKg, "#,##0.00")
SaldoEmpVr = Format(SaldoEmpVr, "Currency")
End Sub