Adriel Ortiz Mangia

Adriel Ortiz Mangia

La vida es hermosa
 252K puntos  Yurimaguas, Perú @temp01 desde - visto
Preguntar

Respuestas

Respuesta en y en 2 temas más a

Como desactivar Textbox cuando elija una opción en combobox y luego que se vuelva activar cuando elija las demás opciones

[hola macro Private Sub ComboBox1_Change() Select Case ComboBox1.Text Case "Liquidación Micro": TextBox1.Enabled = False Case Else: TextBox1.Enabled = True End Select End Sub
Respuesta en y en 4 temas más a

Qué manual o tutorial recomiendan para iniciar a programar?

[hola revisa esta pagina https://www.udemy.com/ , para excel puedes visitar esta web

Eliminar carácter inicial en excel

[Hola en la columna G multiplicar por 1 =F2*1 o también utiliza la función VALOR =VALOR(F2)
Respuesta en y en 2 temas más a

Selección del datos con filtro en excel

Pon un imagen de tu información y donde se va pegar los datos filtrados
Respuesta en y en 1 temas más a

Ruta para archivo de excel

Ajusta de esta manera ruta = ThisWorkbook.Path & "\" FOTO = ruta & Sheets("DESCRIPCION").Range("F6").Value ' ActiveSheet. Shapes("foto"). Fill.UserPicture (ruta & "NO.JPG")
Respuesta en y en 1 temas más a

Macro para copiar datos de un libro a la ultima fila de otro libro

Prueba y comentas Macro Sub copiar() Dim LibroDestino As Workbook Application.ScreenUpdating = False Set LibroOrigen = Workbooks.Open("\\Consignatria 2020.xlsx") Set LibroDestino = Workbooks.Open("C:\PruebaCarga.xlsx") 'Abre libro destino On Error...
Respuesta en y en 3 temas más a

Asignar color de celda según condición

Macro Private Sub CommandButton2_Click() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then Fila = b.Row ' h.Cells(Fila, "B") = TextBox1 h.Cells(Fila, "C") = TextBox2 Select Case...
Respuesta en y en 1 temas más a

Modificar VBA para que pegue datos en otra hoja.

Macro actualizada Sub pegar() Dim c As Range, j As Long Set h2 = Sheets("Hoja2") ' j = h2.Columns("M").Column With ActiveCell For Each c In Range("A" & .Row & ":K" & .Row) If c.Value <> "" Then h2.Cells(.Row, j).Value = c.Value j = j + 1 End If Next...
Respuesta en y en 3 temas más a

Es D. Amor el creador de Todoexpertos?

Dante Amor es un grande Ilustre y el fundador Josep Planells Alòs debe dar su reconocimiento por su gran labor y gratitud en la web todoexpertos