Celda vacía en la Clase Worksheet
Quisiera hacerte la siguiente consulta:
En el siguiente código:
'- CARGO TextBox2 "M de O total"
lÚltimaFila = Worksheets("Historico Montaje2").[N2].End(xlDown).Row
TextBox2 = Format(Application.WorksheetFunction.Sum(Range("N:N")), "0.00") 'da cualquier cosa!!
lÚltimaFila = Worksheets("Historico").[BH2].End(xlDown).row 'm de o en curso
TextBox16 = Format(Application.WorksheetFunction.Sum(Range("BH:BH")), "0.00") ' resultado correcto!
'- CARGO TextBox6 "total operarios"
lÚltimaFila = Worksheets("Historico Montaje2").[H2].End(xlDown).Row
TextBox6 = Format(Application.WorksheetFunction.Sum(Range("H:H")), "0.0") 'idem
lÚltimaFila = Worksheets("Historico").[BI2].End(xlDown).Row 'OPERARIOS EN CURSO
TextBox17 = Format(Application.WorksheetFunction.Sum(Range("BI:BI")), "0.0") 'idem
Cuando analizo el código en la hoja "Histórico Montaje2", el textBox toma cualquier valor menos el que corresponde mientras que en la hoja "Historico", son correctos.
Debo aclarar que en la hoja H M2 existe una fila vacía
¿Qué te parece esta sucediendo?
1 Respuesta
H o l a:
En la suma no estás indicando de cuál hoja.
Tienes este código:
'- CARGO TextBox2 "M de O total"
lÚltimaFila = Worksheets("Historico Montaje2").[N2].End(xlDown).Row
TextBox2 = Format(Application.WorksheetFunction.Sum(Range("N:N")), "0.00") 'da cualquier cosa!!
lÚltimaFila = Worksheets("Historico").[BH2].End(xlDown).row 'm de o en curso
TextBox16 = Format(Application.WorksheetFunction.Sum(Range("BH:BH")), "0.00") ' resultado correcto!En esta línea del código:
'- CARGO TextBox2 "M de O total"
lÚltimaFila = Worksheets("Historico Montaje2").[N2].End(xlDown).RowEstás poniendo una fila en la variable lUltimaFila, pero después no ocupas esa variable, entonces la tienes de más esa línea.
En estas líneas tienes que indicar de cuál hoja quieres la suma, por ejemplo:
'OK --- CARGO TextBox2 "M de O total"
TextBox2 = Format(Application.WorksheetFunction.Sum(Sheets("Historico Montaje2").Range("D:D")), "0.00")
TextBox16 = Format(Application.WorksheetFunction.Sum(Sheets("Historico").Range("HQ:HQ")), "0.00")'
S a l u d o s
'
