Abraham Valencia

Los eventos de los objetos son únicos, no puedes usarlos dos o más veces. En este caso usas el evento "Change" de una hoja y tendrías que tener todo dentro de él. De lo que entendí, algo así te servirá: Private Sub Worksheet_Change(ByVal Target As...

Te dejo una alternativa: Private Sub UserForm_Initialize() Dim rango, celda As Range Dim UltimaFila As Long Let UltimaFila = Sheets("compradores").Cells(Rows.Count, 1).End(xlUp).Row Set rango = Sheets("compradores").Range("A2:A" & UltimaFila) For...

Desde mi punto de vista, hay tres formas en que podemos usar datos de SAP en Excel: 1- Exportar los datos desde el mismo sistema SAP que se usa. 2- Usar algún complemento que ayude a importar la información a Excel (En "Winshuttle" he visto más de...

Quizá, ya que trabajarás sobre Excel, lo más práctico sea que desde ahí importes los datos de Access. Yo recomiendo usar ADO: Option Explicit Sub DatosdeAccess() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As String Dim x As Long,...

En mi blog, en la sección "Ejemplos" tengo un formulario de VBA para trabajar en Excel que podría darte "luces" sobre el tema, si es que deseas solo usar macros: Salu2 Abraham Valencia

No me queda 100% claro tu dilema pero, toma de ejemplo esta línea que cambia el origen de datos de un gráfico (llamado "Gráfico 1")y que está en la "Hoja1": Sheets("Hoja1"). ChartObjects("Gráfico 1"). Chart.SetSourceData Source:=Range("C1:D5")...

Esa macro "ocultarR" ¿desde dónde y cómo la activas? Si lo haces desde otra macro sugiero colocarlo aquí también. Abraham Valencia

Por lo que comentas tienes en un rango, o más, celdas con formato de Libras y celdas con formato de Euros y quieres que al sumar se sume por tipo de moneda. De ser así, una UDF así te ayudará: Function SumandoMonedas(Rango As Range, CeldaMoneda As...

Tu primera línea sí crea una carpeta en el disco "C" y lo siguiente que haces es abrir un cuadro de diálogo que lo que hace es mostrar en un "MsgBox" uno de los archivos que has elegido, nada más. ¿Lo qué quieres es copiar archivo a esa nueva...

No queda tan claro el problema pero creo que te refieres a hacer algo así: If Cells(i, col) Like "XXXXX" Then Sheets(selecciondia).Range("A" & K) = Sheets("MES").Range("A" & i) Sheets(selecciondia).Range("B" & K) = "SIGUIENTE" K = K + 1 End If Sobre...