mrtool

mrtool

Con mas de 15 años de experiencia en consultoria informatica en tareas de I+D y gestión de proyectos
 113K puntos  Madrid, España @mrtool desde - visto

Respuestas en Visual Basic

Macro para copiar e insertar filas con fórmulas

Creo que te resultaría más fácil llevarlo todo en dos hojas. En la primera: Llevas los lotes recibidos, el total. En la 2ª llevas el detalle de cada pallet. Ambas están relacionadas por código de lote que puedes seleccionar en la 2ª mediante una...

Cantidad de impresiones según valor de celda

Si se puede pero en función de lo que tienes hay que codificarlo de una u otra manera. Para el Nº de páginas puedes codificar una macro. Algo como: Sub PrintPages(ByVal pNumPages As Integer) ExecuteExcel4Macro "PRINT(1,,," & pNumPages &...

Error al insertar un icono

¿Te refieres para que te salga en el ejecutable o cuando estas usando un ImgList o alguno de estos?
Respuesta en a

Acceder a base de datos SQL Server con Visual Basic

Crea una conexión UDL como indico en este documento. http://sites.google.com/site/expertmrtool/home/archivos-de-ayuda-para-vb6 Y te debería funcionar.
Respuesta en a

Chat en VB.net

Es una pregunta muy genérica y no entiendo muy bien que es lo que quieres. Técnicamente hablando hay muchas opciones disponibles pero no puedo ponerme a enumerarlas todas. Si me haces preguntas concretas podré ayudarte mejor De todas formas, si...
Respuesta en a

Consulta de Access en Visual Basic

Prueba a poner JUan entre comillas actu.Data1.Recordset.FindFirst "nombre='" & m &"'"
Respuesta en a

Pasar valor de un combo a un textbox

Si declaras una variable numérica como Integer (INT) te redondeara el valor. Lo mejor es declararlas como Long, Double o Currency aunque normalmente uso Double. Luego define el formato en las propiedades del TextBox y debería irte bien.
Respuesta en a

Acceder a una pestaña por su nombre interno

Usa el nombre 'Bueno' "xxx 2009 ..." Public Sub GoSheet(ByVal Nombre As String) Me.Sheets(Nombre).Activate End Sub O el Nº de hoja Sheet1=1 , etc.. Public Sub GoSheetNum(ByVal Num As Integer) Me.Sheets(Num).Activate End Sub
Respuesta en a

Ajuste altura control de 1 informe cada nuevo registro

No le veo solución fácil. Al final estas decidiendo dinámicamente el formato del informe y eso tiene varios efectos, saltos de página etc. Seria más sencillo forzar en la query a un tamaño máximo de registro para que no te descuadre el informe,...
Respuesta en a

Subrayar contenido de caja de texto

Lo que quieres es seleccionarla. Haz un procedimiento para llamarlo desde varios sitios Public Sub SelTxtBox(byref pTxt as object) with pTxt .SelStart = 0 .SelLength = Len(.Text) end with end sub Y luego lo llamas desde el GotFocus de cada txtBox...