- 17 Ago 2017 às 12:56
#25585
Pessoal, tenho uma várias planilhas e eu gostaria de simplificar o comando abaixo de modo que sirva para todas as planilhas.
Tenho um TextBox onde escolho qual planilha trabalhar. Do jeito que está, só executa na Planilha1.
Preciso que, dependendo do que escolho na TextBox, ele executa na Planilha2, Planilha3, Planilha4...
uLin = Planilha1.Cells(Rows.Count, 2).End(xlUp).Row
NF.cboCliente.Clear
NF.cboCliente.AddItem
For i = 5 To uLin
vCB = NF.cboCliente.ListCount - 1
For h = 0 To vCB
If Planilha1.Cells(i, 34) = NF.cboCliente.List(h) Then Exit For
If h = vCB Then
NF.cboCliente.AddItem (Planilha1.Cells(i, 34))
End If
Next h
Next i
NF.cboCliente.RemoveItem (0)
Aguardo a ajuda de vocês.
Tenho um TextBox onde escolho qual planilha trabalhar. Do jeito que está, só executa na Planilha1.
Preciso que, dependendo do que escolho na TextBox, ele executa na Planilha2, Planilha3, Planilha4...
uLin = Planilha1.Cells(Rows.Count, 2).End(xlUp).Row
NF.cboCliente.Clear
NF.cboCliente.AddItem
For i = 5 To uLin
vCB = NF.cboCliente.ListCount - 1
For h = 0 To vCB
If Planilha1.Cells(i, 34) = NF.cboCliente.List(h) Then Exit For
If h = vCB Then
NF.cboCliente.AddItem (Planilha1.Cells(i, 34))
End If
Next h
Next i
NF.cboCliente.RemoveItem (0)
Aguardo a ajuda de vocês.