Dante Amor

Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el dato en el textbox1" TextBox1.SetFocus Exit Sub End If With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Value .List(.ListCount - 1, 1) =...

Revisa lo siguiente: Sub Abrir_Archivo() Dim arch As String Dim estado As Boolean ' arch = "c:\trabajo\diario de consulta.xlsx" ' On Error Resume Next Open arch For Binary Access Read Write Lock Read Write As #1 Close #1 estado = Err.Number Err.Clear...

Debes armar un catálogo de códigos, por ejemplo: Entonces, cuando llegue el archivo del proveedor, buscas en la columna A el código y obtienes tu código y costo de las columnas C y D. Es importante que actualices este catálogo constantemente.

Como bien comentas tal vez necesites otro código. Pero pongo aquí el de la respuesta a este enlace: Capturar una foto con la webcam desde un formulario E spero te funcione. O tal vez te ayude a encontrar el que necesitas. Private Sub...

Tienes que quitar los 2 símbolos $ ¿Cuál es la fórmula del formato condicional?

Libro origen, cómo se llama el libro, la hoja y las celdas que quieres copiar. Libro destino, cómo se llama el libro, la hoja y las celdas dónde quieres pegar.

Utiliza la siguiente fórmula matricial =INDICE($B$2:$B$30,COINCIDIR(K.ESIMO.MENOR(ABS(($B$2:$B$30+(FILA($B$2:$B$30)/1000))-$C$2),FILAS($B$2:B2)),ABS(($B$2:$B$30+(FILA($B$2:$B$30)/1000))-$C$2),0)) Suponiendo el siguiente ejemplo. En la columna B están...

Si es sobre la mima macro, utiliza lo siguiente: Sub Copiar() Dim num As Variant Dim ruta As String ' num = Worksheets("Ficha").Range("F2").Value ruta = "C:\Users\Laura\Documents\" ' 'Buscar archivos en la ruta con el número arch = Dir(ruta & "*" &...

Utiliza la fórmula Si. Error, por ejemplo: =SI.ERROR(SI(K31>=0,125;ABS((K31*0,01-0,0025)-K31);"");"")

Prueba lo siguiente: Sub Copiar() 'Abre word prueba con cc If Worksheets("Ficha").Range("F2") = 41792953 Then Set WordApp = CreateObject("word.Application") WordApp.Documents.Open "C:\Users\Laura\Documents\prueba historia.docx" WordApp.Visible = True...