Luis Herrero Casares

Tengo esta Private en una hoja, cambiar un concepto si se puede: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, [E93:V94]) Is Nothing Then ' PEDRO Sheets("ControlVentaArticulo").Select...

Buenas noches Necesitaria que al ejecutar esta macro: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D:D")) Is Nothing Then Range("B" & Target.Row) = Date - 1 End If End Sub Cambiar a negrita en las columnas,...

Un saludo Tengo puesto en la hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("A" & Target.Row) = Date End Sub Y necesitaria que en Range("A:B"), me ingresara celdas, para que lo...

Buenos días Cuando necesito en una celda, "=", para que me salga el texto de otra celda. ¿Se podría respetar como esté, si normal o en negrita? En vez de que salga en normal como me sale siempre. Un saludo

Buenod días Tengo esta Macro: 'Por. Dante Amor Set h1 = ActiveSheet Set h2 = Sheets("Provedores") i = 42 Do While h2.Cells(i, "S") <> "" i = i + 1 Loop h1.Range("G10").Copy h2.Range("R" & i).PasteSpecial Paste:=xlPasteValues h1.Range("G44").Copy...

Buenos días En esta macro necesitaría, quitar, =HOY(), y me pegase solo el valor, esta en la celda "C4": Sub PEDIDOS_FALCATA() '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- ' Guardar archivo en G '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-...

Buenos días Tengo esta fórmula:...

Esta suma me la hace bien con su valor perfecto y cuando doy aceptar, me sale #¡VALOR! =SUMA(C111;-J106:K110) Y no se lo que estoy haciendo mal

Buenas tardes Necesito que al asentar la factura con esta macro: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, [C5:C36]) Is Nothing Then ' FALCATA If Target.Column = 3 Then If Cells(Target.Row, "B") = ""...

Buenas tardes Necesitaría agregar a esta marco: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- ' AGREGAR FECHA EN UNA COLUMNA '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- If...