HOLa AYUDENME EXPERTO, estoy DESESPERADO con Este TEMA, Caso d VIDa o MUERTE pero mas d MUERTE : Tengo un Excel con 3 HOJAS ( Hoja1=Lima, Hoja=Provincia y HOJA9= Total ) con una MACROS con el Boton Procesar con un rango de Fechas. EL resultado me tiene q botar los datos d una DB Sql "PrdSAP" a mi Libro de EXCEL. Me Bota los Datos para la "HOja LIMA" pero NO me muestra los DATOS a la "HOJA PROVINCIA" para q en la "HOJA TOTAL" me de la SUMA de las 2 HOJAS......... Xfa HELP!!!..... :( ******************************************************************************************** Private Sub CmdProcesar_Click() Dim CMDVENTA As ADODB.Command Dim CMDCOMBOS As ADODB.Command Dim RSVENTA As New ADODB.Recordset Dim RSCOMBOS As New ADODB.Recordset 'Acelerar Macros' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False 'Fin de la Aceleracion' fecini = TxtFecIni.Value fecfin = TxtFecfin.Value SUBCC = CboSubCanalCtrl.Value Set cn = New ADODB.Connection With cn .CursorLocation = adUseClient .ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=AJINOMOTONT2;INITIAL CATALOG=prdsap;USER ID=PLANINF; PASSWORD=INFORMACION;" .Open If CboSubCanalCtrl.Value <> "" Then SQL1 = "select dmtdi_fecha.anno, dmtdi_fecha.mes, dmtdi_materiales.cod_jerarquia_mat AS ID_PRESENTACION, dmtfa_ventas.cod_canal, " SQL1 = SQL1 + "dmtdi_canal.dsc_canal, dmtfa_ventas.cod_org_ventas,(left(dmtdi_zona_ventas.dsc_zona_ventas,4)) as [Desc_Zona],dmtdi_zona_ventas.dsc_zona_ventas , " SQL1 = SQL1 + "dmtfa_ventas.cod_solicitante,dmtfa_ventas.cod_material,dmtfa_ventas.cod_jerarquia_material, " SQL1 = SQL1 + "(left(dmtfa_ventas.cod_jerarquia_material,3)+ ' ' + left(dmtdi_materiales.dsc_material,3)) as [Cod_Clase], " SQL1 = SQL1 + "dmtfa_ventas.cod_grupo_vendedores,dmtdi_grupo_vendedores.dsc_grupo_vendedores,dmtdi_oficina_ventas.cod_oficina_ventas, " SQL1 = SQL1 + "dmtdi_oficina_ventas.dsc_oficina_ventas,SUM(dmtfa_ventas.ctd_neto_ventas) AS peso " SQL1 = SQL1 + "FROM dmtfa_ventas inner join dmtdi_materiales on dmtfa_ventas.cod_MATERIAL=dmtdi_materiales.cod_MATERIAL inner join dmtdi_canal " SQL1 = SQL1 + "on dmtfa_ventas.cod_canal=dmtdi_canal.cod_canal inner join dmtdi_zona_ventas on dmtfa_ventas.cod_zona_ventas=dmtdi_zona_ventas.cod_zona_ventas inner join dmtdi_grupo_vendedores " SQL1 = SQL1 + "on dmtfa_ventas.cod_grupo_vendedores=dmtdi_grupo_vendedores.cod_grupo_vendedores inner join dmtdi_clase_posicion ON dmtfa_ventas.cod_tipo_posicion = dmtdi_clase_posicion.cod_clase_posicion inner join dmtdi_oficina_ventas " SQL1 = SQL1 + "on dmtfa_ventas.cod_oficina_ventas=dmtdi_oficina_ventas.cod_oficina_ventas inner join dmtdi_fecha on dmtfa_ventas.fch_documento=dmtdi_fecha.id_fecha " SQL1 = SQL1 + "WHERE dmtfa_ventas.fch_documento between convert(datetime,' " & fecini & " ',103) and convert (datetime,' " & fecfin & "',103) and dbo.dmtdi_clase_posicion.dsc_tipo_posicion IN ('VENTA')and " SQL1 = SQL1 + "dmtfa_ventas.cod_canal<>'50'and dmtfa_ventas.cod_org_ventas='1100' and (left(dmtdi_zona_ventas.dsc_zona_ventas,4)) in ('prov','lima') " SQL1 = SQL1 + "GROUP BY dmtdi_fecha.anno,dmtdi_fecha.mes,dmtdi_materiales.cod_jerarquia_mat,dmtfa_ventas.cod_canal, dmtdi_canal.dsc_canal,dmtfa_ventas.cod_org_ventas, dmtfa_ventas.cod_zona_ventas, " SQL1 = SQL1 + "dmtdi_zona_ventas.dsc_zona_ventas, dmtfa_ventas.cod_solicitante, dmtfa_ventas.cod_material,dmtfa_ventas.cod_jerarquia_material,dmtdi_materiales.dsc_material,dmtfa_ventas.cod_grupo_vendedores, " SQL1 = SQL1 + "dmtdi_grupo_vendedores.dsc_grupo_vendedores, dmtdi_oficina_ventas.cod_oficina_ventas, dmtdi_oficina_ventas.dsc_oficina_ventas " SQL1 = SQL1 + "ORDER BY dmtdi_fecha.anno,dmtdi_fecha.mes,dmtdi_materiales.cod_jerarquia_mat" Set CMDVENTA = New ADODB.Command With CMDVENTA .ActiveConnection = cn .CommandType = adCmdText .CommandText = SQL1 .CommandTimeout = 180 Set RSVENTA = CMDVENTA.Execute X = RSVENTA.RecordCount End With 'Set CMDCOMBOS = New ADODB.Command 'With CMDCOMBOS '.ActiveConnection = cn '.CommandType = adCmdText '.CommandText = SQL3 '.CommandTimeout = 900 'Set RSCOMBOS = CMDCOMBOS.Execute 'Z = RSCOMBOS.RecordCount 'End With Limpiar_mes ULTIMO = 170 intNumeroHojas = ThisWorkbook.Sheets.Count 'LLENAR VENTAS If X <> 0 Then For CODV = 1 To RSVENTA.RecordCount anno = RSVENTA.Fields("ANNO").Value mes = RSVENTA.Fields("MES").Value IDZONAC = RSVENTA.Fields("Desc_Zona").Value 'ZONAC = RSVENTA.Fields("ZONA_CONTROL").Value CODIGO = RSVENTA.Fields("ID_PRESENTACION").Value For NCOL = 4 To 90 If IsDate(Hoja9.Cells(12, NCOL)) = False Then EXFECHA = 0 Else EXFECHA = Hoja9.Cells(12, NCOL) EXANNO = Year(EXFECHA) EXMES = Month(EXFECHA) If EXANNO = anno And EXMES = mes Then COL = NCOL Exit For End If Next For i = 1 To intNumeroHojas If IDZONAC = ThisWorkbook.Sheets(i).Range("B4") Then For CODEX = 13 To ULTIMO CODIGOEXCEL = ThisWorkbook.Sheets(i).Cells(CODEX, 1) If CODIGOEXCEL = CODIGO Then NFILA = CODEX ThisWorkbook.Sheets(i).Cells(NFILA, COL) = ThisWorkbook.Sheets(i).Cells(NFILA, COL) + RSVENTA.Fields("peso").Value Exit For End If Next Exit For End If Next 'For Z = 2 To intNumeroHojas 'If ZONAC = ThisWorkbook.Sheets(Z).Range("B4") Then 'For CODEX = 13 To ULTIMO 'CODIGOEXCEL = ThisWorkbook.Sheets(Z).Cells(CODEX, 1) 'If CODIGOEXCEL = CODIGO Then 'NFILA = CODEX 'ThisWorkbook.Sheets(Z).Cells(NFILA, COL) = ThisWorkbook.Sheets(Z).Cells(NFILA, COL) + RSVENTA.Fields("peso").Value 'Exit For 'End If 'Next 'Exit For 'End If 'Next RSVENTA.MoveNext Next End If MsgBox "FIN DEL PROCESO", vbInformation, "PROCESO" End If End With 'Acelerar Nuestra Macros Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.CalculateBeforeSave = True Application.EnableEvents = True ActiveSheet.DisplayPageBreaks = True Application.CutCopyMode = False 'Fin de la Aceleracion' End Sub *********************************************************** Xfa Capo espero me ayude a Solucionar este ERROR de un MES, soy d Lima Peru. Mi Correo es = abrahamgs007@gmail.com...... Regalo PANETONNNNNNNNN jajaja. La verda estoy desesperado. Mi Celu 986050428 LIMA, PERU :)

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Macros no Carga Datos a HOJA2 Provincia

Autor del tema abrahamgs007
Fecha de inicio 3 Dic 2014

abrahamgs007

New member

3 Dic 2014

HOLa AYUDENME EXPERTO, estoy DESESPERADO con Este TEMA, Caso d VIDa o MUERTE pero mas d MUERTE : Tengo un Excel con 3 HOJAS ( Hoja1=Lima, Hoja=Provincia y HOJA9= Total ) con una MACROS con el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Error en libros con macros

Respuestas: 1

17 Ago 2026

Abraham.Valencia

Pregunta

Ayuda con Macros

Respuestas: 6

17 Jul 2026

Víctor1

Resuelto

Como abrir archivos xlsm con macros

Respuestas: 14

30 May 2026

Rosetastone

Pregunta

Dividir PDF con macros

Respuestas: 6

10 Abr 2026

IsraelCassales

Pregunta

Habéis creado macros con la IA?

Respuestas: 9

11 Abr 2026

Rafa555555

Pregunta

Modificar macros

Respuestas: 3

11 Feb 2026

jarja33

Pregunta

Formularios y Macros

Respuestas: 4

7 Feb 2026

josecroft

Pregunta

macros ayuda

Respuestas: 5

16 Dic 2025

FGV

Pregunta

Hola amigos tengo un problemas con mi macros

Respuestas: 3

12 Dic 2025

EmmanuellPaulino

Resuelto

Seleccionar datos y pegarlos con macros

Respuestas: 2

10 Dic 2025

Marielos Gil

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba