Luis_P

Le estuve dando vueltas a este tema y se me ocurrio un macro Este funciona bajo las sgte premisas La fila 1 es para rotulos, se respecta la estructura de datos presentada por ti, es decir Col a nombres vendedores - col b ventas - col c vmax - col d...

Para excel v2007 Inserta un modulo en tu proyecto y en el pones esto Option Explicit '4c7569735f50 Public nfil As Double Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" ( _ ByVal lpFileName As String, _ lpFindFileData As...

Prueba: '4c7569735f50 Option Explicit Dim i As Byte Dim paso As Variant Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Columns.Count > 1 Then Exit Sub If Selection.Rows.Count > 1 Then Exit Sub Dim n As Integer Dim nn As Integer If i...

Aca tienes: Sub guardar() Dim nombre As String '4c7569735f50 If Len(Trim([a1])) = 0 Then Exit Sub nombre = [a1] & ".xls" ActiveWorkbook.SaveAs "C:\" & nombre End Sub La macro toma como nombre el valor de la celda a1 y lo guarda en c:\

Desactiva el calculo automatico, ( pestaña formulas/opcines para calculo)

Entiendo. Lo que deseas en utilizar el rango b8:g8 como entrada de datos para conformar una tabla en hoja2, ¿pero qué evento va a desencadenar esa accion? Excel no cuenta con el evento keypress para enter. Entonces se vuelve un problema el intentar...

Intenta: '4c7569735f50 =si.error(buscarv(c8;$a$1:$b$10;2;falso);concatenar("max-";extrae(d7;5;10)+1)) Esto para la secuencia max-18 en donde aparece repetido a-1 Funciona bien en esa esctructura de datos, pero solo desde el correlativo a-12 hacia...

en la version 2007 esa es la función =consultav() en esa version utilizas la función =si.error(tu_funcion;"") Para ocultar el rotulo de #na

Seria asi: En el evento click de algun boton de tu form debes indicarle en que hoja y celda debe almacenar el contenido de un control del form Sheets("hoja2").Range("A1") = textbox3 En este caso guarda el contenido del textbox 3 en la celda a1 de la hoja2

Prueba asi: Sub Combinación() Dim i As Long Dim b1 As Integer Dim b2 As Integer Dim b3 As Integer Dim b4 As Integer Dim b5 As Integer Dim f As Long '4c7569735f50 i = 1 f = 1 For b1 = 1 To 41 For b2 = b1 + 1 To 42 For b3 = b2 + 1 To 43 For b4 = b3 + 1...