kapapri

kapapri

 10,9K puntos  España @kapapri desde - visto

Preguntas esperando respuesta

Actividad pública reciente

Ha preguntado en el tema en

Quien utilizo primero la grafía Jehová

Según los expertos que rondan este sitio me encuentro con uno que insiste en decir que la grafía Jehová la invento lutero y que por eso las "sectas" creen que ese es el nombre de Dios. Ahora bien que opinan del códice cusano 220 de 1430 si es...
Ha empezado a seguir el tema
Ha respondido en

En la Biblia que significado tiene la montaña

Significa gobiernos o reinos. Representan gobiernos. En el simbolismo bíblico, las montañas pueden representar reinos o gobiernos. (Da 2:35, 44, 45; compárese con Isa 41:15; Rev 17:9-11, 18.) Babilonia arruinó a otras naciones por medio de sus...
Ha respondido en

Ampliar función para mañana, tarde, noche y mes...

Mandame esa planilla a [email protected] y a la hora de colación lo veré.
Ha respondido en

Busco una función para Mañana, Tarde, Noche...

Realice una prueba y funciona bien con esta fórmula: Mañana formula a poner en b1:=CONTAR.SI.CONJUNTO(Hoja1!C:C;">6:01";Hoja1!C:C;"<14:01") Tarde formula a poner en b2:=CONTAR.SI.CONJUNTO(Hoja1!C:C;">14:01";Hoja1!C:C;"<22:01") Noche formula a poner...
Ha respondido en

Utilizar datos introducidos mediante inputbox

Acá el error es : Workbooks("nombrearchivo"). Sheets("Hoja3").Delete no debes usar las comillas debe ser Workbooks(nombrearchivo).Sheets("Hoja3").Delete aca el error es : Kill "ruta\nombre" no debes usar las comillas y de falta un controlador de...
Ha respondido en

Ayuda macro que busque espacios en blanco y copie

Selecciona el rango de celdas y corre esta macro Sub macro1() filafin = Selection.Rows.Count filaini = Selection.Row columna = Selection.Column For i = filaini To filafin If Cells(i, columna) = "" Then Cells(i, columna) = Cells(i - 1, columna) End If...
Ha respondido en

Comparar columnas entre hojas

Algunos alcances. Estas copiando desde cdec-00 a la hoja nueva. Ahora bien si hoja nueva tiene más lineas que hoja cdec-oo solo comparara hasta el final de lineas de cdec-00. otra cosa estas saltandote 2 lineas en nueva, ya que pones fila2=fila2+1 y...
Ha respondido en

Como formular...

Supongo que este archivo que confeccione de acuerdo a lo que pides te servirá. http://www.divshare.com/download/9104206-53f
Ha respondido en

Función aleatorio con criterio

Pues eos no lo llamaría aleatorio. Si ves la combinatoria de que salga un 1 o un 3 el resultado es 50% para cada opción, así que bastaría con una función "SI" en el cual si aleatorio es < 0.5 el resultado es 1 sino el resultado es 3....
Ha respondido en

Rangos en Excel

Pues no veo mucho problema salvo que nopuedas hacerle modificaciones a la base (agregar una columna y filtrar por esta. Matemáticamente ablande debes mostrar solo las filas donde el numero de registro sea múltiplo de 6 o 1. Para sacar el numero de...
Ha respondido en

Imprimir también los comentarios en Excel

Busca el comando configurar página, pero no desde vista preliminar, sino directo. Luego te vas a hoja y te aparecerá la sección comnetarios. El botón debes ponerlo como favoritas de la barra todos los comandos si es que no lo encuentras en las barras...
Ha respondido en

¿Cómo ordenar datos en excel por Apellido?

No veo mucho problema en hacer ese cambio dentro de un rango seleccionado. Pero existen algunas salvedades que debes tomar en cuenta. Tiempo atrás realice algo parecido y debemos tener en cuenta que existen personas que usan 2 nombres y eso impide la...
Ha respondido en

Concatenar

Prueba esta macro. Selecciona rango a concatenar. El resultado lo pondrá en la primera fila, columna posterior al rango. Sub contatenarango() ' palabra = InputBox("Ingresa separador") largopalabra = Len(palabra) Set Rango = Selection a =...
Ha valorado "Excelente" la respuesta

Sumar según formato moneda de celdas

respondió: Un ejemplo: Sub XXX() Dim rango As Range For Each rango In ActiveSheet.Range("A1:B5") Dim dolares As Currency, soles As Currency If rango.NumberFormat = "$ #,##0.00" Then soles = soles + rango End If If rango.NumberFormat = "[$$-409]#,##0.00" Then...