Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 467 Preguntas. | << >> |
| Pregunta: | 67853 - MACRO PARA COMPARAR DATOS DE DOS LIBROS DE EXCEL |
| Autor: | Icela |
| Tengo una base la cual se alimenta con varios excel... llamemosle id (el num puede ser variable) yo tengo que comparar una columna de la base con una del id"x" y el dato de la casilla "a1 del id "x"" colocarlo en la columna "ah" de la fila en la que coincidan los datos que compare... me podrian ayudar con una macro ??? por favor me urge... | |
| Contestar |
| Pregunta: | 67886 - TEXTBOX EN FECHA |
| Autor: | Jesus leon |
| hola me prodiran ayudar por favor con codigo, mi duda es como poner un textbox en forma fecha utilizando el visual basic 2010, Gracias | |
| Contestar |
| Pregunta: | 67898 - CONECCIÓN A ACCESS 2010 64 BITS EN VB 6.0 |
| Autor: | Luis Diego Morales V. |
| Hola, mi consulta es simple, estoy desarrollando una aplicación en VB 6.0 e hice una DB en Access 2010 32 bits, todo iba bien pero al reemplazar el Office 2010 de 32 bits por el de 64 bit ya no me conecto a a la base de datos, Error "3706" en tiempo de ejecución y señala que no se encontró el proveedor especificado. Es posible que no este instalado correctamente. Investigando por la web probé copiando el odbcad32 al directorio C:WindowsSysWOW64 y modifique la ruta en las propiedades de Orígenes de datos ODBC y sin resultados positivos, de antemano les agradezco la ayuda y atención requeridos para solventar este problema, muchas gracias. | |
| Contestar |
| Pregunta: | 67904 - EJECUTABLE VB6 OBJETO XMLHTTPREQUEST FALLA SEND EN WINDOWS |
| Autor: | Juan José . |
| Hola Amigos, les comento un inconveniente que tengo con VB6 en Win7 (algunas PC, otras no). Una rutina (codificada en un proyecto tipo DLL, referenciada por el EXE de mi aplicación) que utilizo para enviar un string XML a un Web Service, funciona perfecto desde fuentes en Win7, pero desde el EXE no... Me da un error en el Send "El Sistema no puede ubicar el recurso especificado".
Esta es la rutina: Private Sub enviarComandoMV(ByVal sXml As String, ByVal sSoapAction As String, ByVal sURL As String) On Error GoTo ERROR_ENVIAR ' Enviar el comando al servicio Web ' usar XMLHTTPRequest para enviar la información al servicio Web Dim oHttReq As XMLHTTPRequest Set oHttReq = New XMLHTTPRequest ' Enviar el comando de forma síncrona (se espera a que se reciba la respuesta) oHttReq.Open "POST", sURL, False ' las cabeceras a enviar al servicio Web ' (no incluir los dos puntos en el nombre de la cabecera) oHttReq.setRequestHeader "Content-Type", "text/xml; charset=utf-8" oHttReq.setRequestHeader "SOAPAction", sSoapAction ' enviar el comando oHttReq.send sXml 'AQUI DA EL ERROR EL EXE ! 'este será el texto recibido del servicio Web procesarRespuestaMV oHttReq.responseText Exit Sub ERROR_ENVIAR: .... ... .. | |
| Contestar |
| Pregunta: | 67930 - MACRO. AGRUPAR DATOS REPETIDO Y SUMARLOS. EXCEL |
| Autor: | Dany Rob |
| Hola. Necesito una macro que me sume los valores cuando coincidan el código y el color. Es decir me fusione en una AAAA AZUL $ 420.000.- y para los que no se repiten queden igual,.
CODIGO COLOR VALOR AAAA AZUL 120 TTTT VERDE 110 AAAA AZUL 100 AAAA AZUL 200 TTTT NEGRO 665 La idea es que arroje la fusión en la mismas columnas. Que quede algo asi: CODIGO COLOR VALOR AAAA AZUL 420 TTTT NEGRO 665 TTTT VERDE 110 se podrá hacer algo como eso? | |
| Contestar |
| Pregunta: | 67934 - GRAFICO DE LINEAS EN VISUAL BASIC 6 |
| Autor: | maxy rivero |
| Buenos dias a todos..soy nuevo aca y estoy empezando con la programacion y estoy desarrollando un sistema biometrico aplicado al tecleo y quiero realizar un grafico de linea en visual basica con 2 vectores..
vector(1) "eje X", y vector(2) "eje Y", para mostrar la diferencia de tecleo del usuario..si alguien podria ayudarme estaria muy agradecido...Saludos | |
| Contestar |
| Pregunta: | 67959 - ORDENAR INFORMACIÓN EN MSFLEXGRID |
| Autor: | Cynthia Rdz |
| Estoy haciendo una aplicación en donde tengo un MSFlexGrid con los registros de una tabla SQL, en donde pongo 3 campos de ésta en 3 columnas
Necesito que si el usuario da un click sobre la primer columna toda la información en el MSFlexGrid se ordene por ese campo Si da un click sobre la segunda columna toda la información en el MSFlexGrid se ordene por ese campo Si da un click sobre la tercer columna toda la información en el MSFlexGrid se ordene por ese campo nunca había usado un MSFlexGrid | |
| Contestar |
| Pregunta: | 67965 - GOTFOCUS, LOSTFOCUS VB& |
| Autor: | cyndy rdz |
| Estoy haciendo una aplicacion muy sencilla para capturar una Fecha Inicio y una Fecha Fin, al perder el Focus en fechaini verifico que sea una fecha válida, si no, despliego un MSG de error y le vuelvo a mandar el Focus para que la capture, no sé porque se me cicla y se va y valida la fecha fin el código es:
Private Sub txtFechaIni_LostFocus() If txtFechaIni.Text = "" Then MsgBox "--- Debe proporcionar una fecha INICIO válida--- " GoTo ErrorEnFecha End If dia = Val(Mid(txtFechaIni.Text, 1, 2)) mes = Val(Mid(txtFechaIni.Text, 4, 2)) ano = Val(Mid(txtFechaIni.Text, 7, 4)) Select Case mes Case 1, 3, 5, 7, 8, 10, 12 If dia < 1 Or dia > 31 Then MsgBox "Error en el día" GoTo ErrorEnFecha End If Case 4, 6, 9, 11 If dia < 1 Or dia > 30 Then MsgBox "Error en el día" GoTo ErrorEnFecha End If Case 2 If ano / 4 = Int(ano / 4) And (dia < 1 Or dia > 29) Then MsgBox "Error en el día" GoTo ErrorEnFecha End If If ano / 4 <> Int(ano / 4) And (dia < 1 Or dia > 28) Then MsgBox "Error en el día" GoTo ErrorEnFecha End If Case Else MsgBox "Error en el mes" GoTo ErrorEnFecha End Select If ano < 1986 Or ano > Year(Date) Then MsgBox "Error en el año" GoTo ErrorEnFecha End If Exit Sub ErrorEnFecha: txtFechaIni.SetFocus End Sub Y PARA FECHA FIN: Private Sub txtFechaFin_LostFocus() If txtFechaFin.Text = "" Then MsgBox "Debe proporcionar una fecha FIN válida" GoTo ErrorEnFechaFin End If dia = Val(Mid(txtFechaFin.Text, 1, 2)) mes = Val(Mid(txtFechaFin.Text, 4, 2)) ano = Val(Mid(txtFechaFin.Text, 7, 4)) Select Case mes Case 1, 3, 5, 7, 8, 10, 12 If dia < 1 Or dia > 31 Then MsgBox "Error en el día" GoTo ErrorEnFechaFin End If Case 4, 6, 9, 11 If dia < 1 Or dia > 30 Then MsgBox "Error en el día" GoTo ErrorEnFechaFin End If Case 2 If ano / 4 = Int(ano / 4) And (dia < 1 Or dia > 29) Then MsgBox "Error en el día" GoTo ErrorEnFechaFin End If If ano / 4 <> Int(ano / 4) And (dia < 1 Or dia > 28) Then MsgBox "Error en el día" GoTo ErrorEnFechaFin End If Case Else MsgBox "Error en el mes" GoTo ErrorEnFechaFin End Select If ano < 1986 Or ano > Year(Date) Then MsgBox "Error en el año" GoTo ErrorEnFechaFin End If Exit Sub SI NO CAPTURO NADA EN FECHA INI Y DOY UN TAB, ME DA EL ERROR DE FECHA INI, LE DOY ACEPTAR, Y ME DA EL ERROR DE FECHA FIN, LE DOY ACEPTAR Y ME DA EL ERROR DE FECHA INI Y ASÍ SUCESIVAMENTE Y NO ME DEJA CAPTURAR LA FECHA | |
| Contestar |
| Pregunta: | 67966 - COPIAR ARCHIVOS ADJUNTOS A UNA RUTA ESPECIFICA CON MACRO EN |
| Autor: | Giampier Arellano Buleje |
| Buenos dias;
soy nuevo en este foro y espero estar en el grupo correcto, tengo una necesidad y por ello que recuro a ustedes para que me ayuden. En el trabajo quiero que de un destinatario en especifico me copie los adjuntos a una ruta especifica, eh encontrado que eso se hace por medio de una macro en outlook la cual también eh encontrado la programación pero no se como aplicarla en mi entorno. Les comento un poco, acá trabajamos con archivos *.pst en mi caso tiene el nombre de Junio 2013 (cada mes varia el nombre según corresponda), los correos llegan a la bandeja de entrada que lleva ese mimos nombre "Bandeja de entrada", yo quiero copiar los adjunto a una ruta por ejm. "c:datos". aparte quiero que la macro se ejecute automáticamente, algo asi como una regla que actúa en la bandeja de entrada. El código que eh encontrado es este de aca, no entiendo mucho de programación y quiero saber si alguien me puede ayudar re emplazando los datos que les eh dicho en esta programación y obviando lo que no me sirva. Sub GetAttachments() Dim ns As NameSpace Dim Inbox As MAPIFolder Dim Item As Object Dim Atmt As Attachment Dim FileName As String Dim i As Integer Dim SubFolder As MAPIFolder GetAttachments_exit: Set Atmt = Nothing Set Item = Nothing Set ns = Nothing Set ns = GetNamespace("MAPI") Set Inbox = ns.GetDefaultFolder(olFolderInbox) Set SubFolder = Inbox.Folders("Prueba") i = 0 If SubFolder.Items.Count = 0 Then MsgBox "There are no messages in Prueba folder.", vbInformation, _ "Nothing Found" Exit Sub End If If SubFolder.Items.Count > 0 Then For Each Item In SubFolder.Items For Each Atmt In Item.Attachments FileName = "C: eports" & _ Format(Item.CreationTime, "dd mm yyyy_hh nn_") & Atmt.FileName Atmt.SaveAsFile FileName i = i + 1 Next Atmt Next Item End If If i > 0 Then MsgBox "I found " & i & " attached files." _ & vbCrLf & "I have saved them into the C: eports." _ & vbCrLf & vbCrLf & "Have a nice day.", vbInformation, "Finished!" Else MsgBox "I didn't find any attached files in your mail.", vbInformation, _ "Finished!" End If End Sub Muchas gracias ante todo. | |
| Contestar |
| Pregunta: | 67973 - CONVERTIR DE UNIDADES A CAJAS EN VISUAL BASIC 6.0 |
| Autor: | jhonn preyler guevara montes |
| convertir de unidades a cajas en visual Basic 6.0
quisiera convertir de unidades a cajas en visual Basic 6.0 Ejemplo : tengo 47 botellas y cada caja traen 12 ¿ Cuantas cajas y botellas tengo? Gracias por su respuesta.. aqui la imagen del formulario: http://s2.subirimagenes.com/otros/previo/thump_8504181form.jpg | |
| Contestar |
| |< << 37 38 39 40 41 42 43 44 45 46 47 >> >| |