santiagomf

Sub Tomadedatos(ByVal fi, ByVal ci, tamresp) ReDim matriztotales(tamresp) As Integer For i = 1 To tamresp matriztotales(i) = Cells(fi + i - 1, ci) Next En principio se puede definir la matriz dependiendo del parámetro que le pases.

A ver si lo que buscas es algo así. En la columna "A" de la hoja1 tienes la lista total de códigos y en la misma columna de la hoja2 están los que has importado. Supongo que si te falta por importar el 5241, lo podrás traer más tarde y te quedaría al...

Prueba a añadir una referencia a "Microsoft Word 11.0 Object Library" (o la versión que tengas tu), y con un código de este estilo: Option Explicit Sub abrirWord(ByVal nomFich As String, ByVal clave As String) Dim miWord As New Word.Application Set...

En este caso te plantearía usar una macro. El código podría ser este: Option Explicit Sub rellenaAsientoFechaEnBlanco() Dim nLin As Integer Dim antAsiento As Long Dim antFecha As Date Dim aux1 As Variant Dim aux2 As Variant aux1 = "" aux2 = "" nLin =...

Suponiendo que en la primera fila tengas unas cabeceras, en la celda F2 podrías poner la siguiente fórmula: =si(D2=D1;F1;0)+1 Después copia la fórmula al resto de las celdas de la columna y, si no me he equivocado, tendrás lo que buscas. En caso que...

Te he preparado estas dos funciones que creo que están bastante claras para que puedas ajustarlas a tus necesidades: Option Explicit Const nColCentro = 1 ' Columna en la que se encuentra el centro Const nColCIF = 2 ' Columna en la que se encuentra el...

Te he preparado esta macro que creo que te servirá (al menos para ir ajustándola a tus necesidades): Option Explicit Const nomPagina = "Hoja1" Sub agregarResultadoPartida() Dim nombre1 As String ' Nombre del primer jugador Dim nombre2 As String '...

Prueba con este código: Sub cambiarColor(ByVal valorCelda As String) Const color0 = 0 ' Color de fondo que tendrán las celdas si no aparece ningun de los dos textos Const color1 = 3 ' Color de fondo de las celdas si aparece el primer texto Const...

Supongamos que la celda con la fecha en formato "dia/mes" sea la B1 y la celda que contiene la fecha que vas a modificar sea A1. Tienes 2 formas sencillas de hacerlo: - B1 contiene un texto que indica el día/mes de la fecha que aparece en A1 - B1...

Prueba con este código ajustándolo a tus necesidades: Sub ponerValor0(ByRef miRango As Range) Dim i As Long Dim j As Long For i = 1 To miRango.SpecialCells(xlCellTypeLastCell).Row For j = 1 To miRango.SpecialCells(xlCellTypeLastCell).Column...