teoth

Cadipas spain respondió: No entiendo muy bien pero lo he intentado, te copia la columna A y C siempre que en la Columna B=si Sub Macro1() Dim n As Integer, nn As Integer Sheets(1).Select n = 1 nn = 1 Do While Sheets(1).Cells(n, 2) <> "" If Sheets(1).Cells(n, 2) = "si" Then...

Elsa Matilde respondió: De 2 maneras: =CONCATENAR(A1;A2;A3;A4) =A1&A2&A3&A4

leone respondió: Prueba con las modificaciones que te envío: Private Sub Texnum_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(Texnum.Text) = False And Len(Texnum.Text) <> 0 Then MsgBox "Debe ingresar un campo numérico", vbExclamation, "Error de dato"...

Anónimo respondió: Por lo que estás preguntando si se puede pero no llego a entender la pregunta para responderte con precisión; en ppio en la celda C10 (donde quieres el resultado), deberías poner algo como =SI(B10="Equipo", A10,"") Pero aclará bien y la seguimos...

asaroma respondió: Podrías darle la siguiente instrucción: VBA. StrConv(textbox1.text, vbUpperCase) Si kisieras asignar a toda una columna, en vez de textbox1.text colocas: Columns("A:A") Es decir si es la columna A. Bytez :)

jerryeagle respondió: Hay una forma más sencilla de llenar los datos de un UserForm, es dándole a la propiedad list del combobox el valor de un rango de datos y si quieres dos columnas, solo pon el rango de dos Columnas, checa: Private Sub UserForm_Initialize() Combo.List...

Abraham Valencia respondió: Pero, hablas de activar/desactivar el optionbutton como tal (Enabled) es decir casi bloquearlo para su uso, ¿o te refieres a que se active/desative la opción? Si es lo segundo, e es algo así: If Optionbutton1 = True Then OptionButton2 = False Else...

Abraham Valencia respondió: Pues, quieres hacer eso en un Msgbox? En realidad me parece poco practico. En todo caso, faltan algunos detalles en tu dilema. Prueba algo así: Sub xxx() Dim celda As Range Dim strmsj$ For Each celda In Range("C1:C5") If celda <> "" Then strmsj$ =...