Unione celle

Hai un problema con Excel?

Nuova discussione

Unione celle
di trump61 data: 16/02/2016 19:45:07
Ciao rieccomi, sono giunto quasi alla fine. Per riprodurre fedelmente la scheda di lavoro sono dovuto ricorrere ad unione celle Ora mi ritrovo in diicolta perche in una UserForm dove ci sone delle combobox che uso per compilare la scheda ci sono a fianco delle textbox dove vengono riportati i nomi presi dalla scheda compilata.
nel codice qui sotto ho fatto varie prove ma mi da errore "Impossibile trovare l'oggetto specificato", non riuscivo a spiegarmi cosa intendesse così con il registratore di macro attivo ho selezionato quella che per me doveva essere la cella B26 ed il risultato è stato questo:
Range("B26:D26").Select
ActiveCell.FormulaR1C1 = "tot"
Range("B29:D29").Select
mi è sorto il dubbio che devo selezionare Range("B26:D26").Select per poter avere il mio dato?

Private Sub UserForm_Activate()
Dim G, K, L, N, M, Y
Dim Q, B, W, P, S, F, A, U As Long
Dim sh1 As Worksheet: Set sh1 = Worksheets("Scheda")
  For G = 1 To 2
   For Q = 1 To 9
UserForm2("ComboBox" & Q).AddItem Choose(G, "3 - 4", "2 - 3")
Next
Next
 For K = 1 To 2
 For B = 10 To 18
UserForm2("ComboBox" & B).AddItem Choose(K, "3 - 4", "2 - 3")
Next
Next
 For L = 1 To 6
 For W = 19 To 27
UserForm2("ComboBox" & W).AddItem Choose(L, "4", "4,5", "5", "5,5", "6", "7")
Next
Next
For N = 1 To 6
For P = 28 To 36
UserForm2("ComboBox" & P).AddItem Choose(N, "4", "4,5", "5", "5,5", "6", "7")
Next
Next
For M = 1 To 6
For S = 37 To 45
UserForm2("ComboBox" & S).AddItem Choose(M, "6,5", "7", "7,5", "8", "9", "10")
Next
Next
For Y = 1 To 6
For F = 46 To 54
UserForm2("ComboBox" & F).AddItem Choose(Y, "6,5", "7", "7,5", "8", "9", "10")
Next
Next
For U = 1 To 9
UserForm2("TextBox" & U).Value = sh1.Cells(25 + U, 1).Value
'UserForm2("TextBox" & U + 10).Value = sh1.Cells(25 + U, 1).Offset(0, 1).Text
Next
'For A = 10 To 19
'For U = 1 To 9
'UserForm2("TextBox" & A).Value = sh1.Cells(15 + A, 2).Value
'Next
'Next
End Sub

Vuoi Approfondire?