Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Seleccion de Celdas para edicion manual

suitirb

Recommended Posts

suitirb Novato

suitirb

publicado
publicado

Hola a todos,

Tengo un problema… Estoy usando una macro directamente sobre un libro, hago debleclick (dc) sobre la hoja en determinadas celdas y dispara un modulo. El problema, es que ahora hago dc sobro las celdas y no las edita de manera normal, a que llamo normal, a que cuando haces dc aparece el cursor sobre la formula o texto de la celda. Que es lo que hace, me deja seleccionar y si escribo escribe, pero no me deja entrar en la celda, soy claro??

Les paso el código (sin el modulo), como para que vean a que me refiero…



[INDENT]Option Explicit


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Cancel = True


If ActiveCell.Column = 1 Then


ActiveCell = Date 'aca es donde va el modulo, puse esto para que sea mas sencillo


Else


'aca intente de poner activecell.select pero no soluciona el problema


End If


End Sub[/INDENT]




[/CODE]


 


Que es lo que necesito, cualquiera de estas dos opciones me vienen bien.




    

  1. alguna forma de seleccionar celdas para editar, que no sea ni Cells(x,x).Select, ni Cells(x,x).Activate, no me sirvio ninguna
    

    2. 

  2. alguna forma de activar la macro haciendo dc sin que se de ese fenomeno
    

    3. 





Se me ocurrio que tal vez podia usar algo tipo el “rango” _BeforeDoubleClick en el que tengo que hacer dc en lugar de Worksheet_BeforeDoubleClick, pero no se como nombrarlo…


Gracias de antemano…


Tomás



			
		


		

		
	


	
    


	



					
					
						


					
					
				

					

					
					







	

	

	

		

			

				


	
		Antoni
	

				
				
					
						
Veterano
					
				
			

		

		

			

				




	
Antoni
			

			

			    publicado 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   publicado 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			

Hola:


No es exactamente lo que pides, pero se parece bastante.


Yo no conozco la manera de entrar "dentro" de una celda, pero podemos hacer un apaño.


He añadido un TextBox que se adapta automáticamente al tamaño y posicionamiento de la celda activa y se carga con su valor.


Con doble click sobre él, ejecutamos la macro, el cursor se quedará dentro del TextBox, y al modificarlo se actualizará la celda activa.


Espero que te sirva para algo, y si no, puede que te de alguna idea de como solucionar el tema.


Saludos.


AlgoParecido.xls



			
		


		

		
	


	
    


	



					
						
    
							
							
								
  • 
									2 weeks later...
								
    • 
							
						

					
					
					
				

					

					
					







	

	

	

		

			

				


	
		suitirb
	

				
				
					
						
Novato
					
				
			

		

		

			

				




	
suitirb
			

			

			    publicado 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   publicado 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			
Jajaja, muy bueno el nombre del archivo… Bueno gracias, la verdad es que la macro esta interesante, lamentablemente para lo que la queria no me termina de servir, pero bueno se tendran que conformar con lo que arme, y si no les gusta, que aprendan ellos a hacer macros, jajaja.. Gracias por la respuesta y disculpa mi tardanza.


			
		


		

		
	


	
    


	



					
					
					
				
			
			



		

	


	
	
	
		

			
Archivado

			

				Este tema está ahora archivado y está cerrado a más respuestas.
			

		

	
	
	

	







	

		
			
				Ir al listado de temas
			
		
	

	




						


					

					


	

		
		
		
		


	

		
    
			
				
					
					
  • 
				
					
					
  • 



    

	
		
    
			
				 109
				¿Te parecen útiles los tips de las funciones? (ver tema completo)
			
		
    
		
    
			
      
				
				
					
					
    1. 
						
      1. ¿Te parecen útiles los tips de las funciones?
      
						
      
						
        
							
								
      • 
									
        
										Sí
									
        
									
        
										
											
										
									
        
								
        • 
							
								
      • 
									
        
										No
									
        
									
        
										
											
										
									
        
								
        • 
							
								
      • 
									
        
										Ni me he fijado en ellos
									
        
									
        
										
											
										
									
        
								
        • 
							
						
      
					
      2. 
				
			
    
			
    
			
		
    
	


    


    • 
				
					
					
  • 

    Ayúdanos a mejorar la comunidad
    


    
	
      
		
			
    • 
                

					
      
						
      Mantenimiento de la comunidad
      
						
								
      
									
      
										
      
									
      
									
										Donaciones recibidas este mes: 0.00 EUR 
      Objetivo: 130.00 EUR
									      
								
      
						
					
      
                
			
      • 
		
	
    

    • 
				
					
					
  • 

    Archivos
    

    
	
		
			
		
	

    • 
				
					
					
  • 

    Estadísticas de descargas
    

    
	
		
      
			
    • 
				
      
					Archivos
				
      
				
      
					188
				
      
			
      • 
			
				
    • 
					
      
						Comentarios
					
      
					
      
						98
					
      
				
      • 
			
			
				
    • 
					
      
						Revisiones
					
      
					
      
						29
					
      
				
      • 
			
		
    
		
    
		
			
    
				


	
	
		Más información sobre "Cambios en el Control Horario"
	
 
				
    
					Última descarga
    
					
    Cambios en el Control Horario
    
					Por 




	
pegones1
					
     4    1
    
				
    
			
    
		
	

    • 
				
					
					
  • 

    
	
    
	Crear macros Excel

    


    

    • 
				
					
					
  • 

	
    Mensajes
    
	
		
    
			
      
				
					
    • 
						
      
							


	
		DiegoPC
	

						
      
						
      
							
       FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS
      
							
      Por 




	
DiegoPC · publicado 
      
							
      
								Hola, veo que tienes 365, así que esta forma funcionará
 


	 
 

Almacen.xlsx 
							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		jues
	

						
      
						
      
							
       Guardar Formulario en PDF
      
							
      Por 




	
		
		
		
			
		
	
jues · publicado  
      
							
      
								Buenos días  @LeandroA espero estes bien
 


	Tengo un caso idéntico al planteado en la siguiente pregunta:
 



	Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta.
 


	Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits
 


	Mucho le sabre agradecer la ayuda que me pueda dar 
 

RCS PRUEBA - copia.xlsm 
							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		DiegoLG
	

						
      
						
      
							
       Surtido de Mercancía
      
							
      Por 




	
DiegoLG · publicado 
      
							
      
								@JSDJSDCon gusto mi estimado
 


	Para la opción 1:
 

Sub Surtirhastadondealcanse()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)

    Dim filaInicio As Integer: filaInicio = 4
    Dim filaFin As Integer: filaFin = 7
    Dim colInventario As Integer: colInventario = 2
    Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C
    Dim colResultadoInicio As Integer: colResultadoInicio = 9     ' Columna I
    Dim colTotalSurtido As Integer: colTotalSurtido = 12          ' Columna L
    Dim colFinalInventario As Integer: colFinalInventario = 13    ' Columna M
    Dim numClientes As Integer: numClientes = 3

    Dim fila As Integer, i As Integer

    For fila = filaInicio To filaFin
        Dim inventario As Double
        inventario = Val(ws.Cells(fila, colInventario).Value)

        Dim solicitudes(1 To 3) As Double
        Dim surtido(1 To 3) As Variant
        Dim totalSurtido As Double: totalSurtido = 0

        ' Leer solicitudes
        For i = 1 To numClientes
            If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then
                solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value)
            Else
                solicitudes(i) = 0
            End If
            surtido(i) = "POR FALTA STOCK"
        Next i

        ' Surtir de acuerdo al inventario disponible
        For i = 1 To numClientes
            If solicitudes(i) > 0 Then
                If inventario >= solicitudes(i) Then
                    surtido(i) = solicitudes(i)
                    inventario = inventario - solicitudes(i)
                    totalSurtido = totalSurtido + solicitudes(i)
                ElseIf inventario > 0 Then
                    surtido(i) = inventario
                    totalSurtido = totalSurtido + inventario
                    inventario = 0
                Else
                    surtido(i) = "POR FALTA STOCK"
                End If
            End If
        Next i

        ' Escribir resultados en las columnas correspondientes para cada cliente
        For i = 1 To numClientes
            With ws.Cells(fila, colResultadoInicio + i - 1)
                If surtido(i) = "POR FALTA STOCK" Then
                    .Value = surtido(i)
                    .Font.Color = vbRed
                Else
                    .Value = surtido(i)
                    .Font.Color = vbBlack
                End If
            End With
        Next i

        ' Escribir total surtido y existencia final
        ws.Cells(fila, colTotalSurtido).Value = totalSurtido
        ws.Cells(fila, colFinalInventario).Value = inventario
    Next fila

    MsgBox "Resultado surtido cargado con éxito...", vbInformation

End Sub


	Para la opción 2: 
	 
 

Sub surtirenpartesiguales()

  Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)

Dim filaInicio As Integer: filaInicio = 13
Dim filaFin As Integer: filaFin = 16
Dim colInventario As Integer: colInventario = 2
Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C
Dim colResultadoInicio As Integer: colResultadoInicio = 9     ' Columna I
Dim colTotalSurtido As Integer: colTotalSurtido = 12          ' Columna L
Dim colFinalInventario As Integer: colFinalInventario = 13    ' Columna M
Dim numClientes As Integer: numClientes = 3

Dim fila As Integer, i As Integer

For fila = filaInicio To filaFin
    Dim inventario As Double
    inventario = Val(ws.Cells(fila, colInventario).Value)

    Dim solicitudes(1 To 3) As Double
    Dim surtido(1 To 3) As Variant
    Dim totalSurtido As Double: totalSurtido = 0
    Dim totalPedido As Double: totalPedido = 0

    ' Leer solicitudes
    For i = 1 To numClientes
        If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then
            solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value)
            totalPedido = totalPedido + solicitudes(i)
        Else
            solicitudes(i) = 0
        End If
        surtido(i) = 0
    Next i

    ' Si hay suficiente inventario, surtir lo que el cliente pide
    If inventario >= totalPedido Then
        For i = 1 To numClientes
            If solicitudes(i) > 0 And inventario >= solicitudes(i) Then
                surtido(i) = solicitudes(i)
                inventario = inventario - solicitudes(i)
                totalSurtido = totalSurtido + solicitudes(i)
            End If
        Next i
    Else
        ' Reparto base igualitario
        Dim baseSurtido As Long
        baseSurtido = Int(inventario / numClientes)

        For i = 1 To numClientes
            If solicitudes(i) > 0 Then
                If solicitudes(i) <= baseSurtido Then
                    surtido(i) = solicitudes(i)
                    inventario = inventario - solicitudes(i)
                    totalSurtido = totalSurtido + solicitudes(i)
                Else
                    surtido(i) = baseSurtido
                    inventario = inventario - baseSurtido
                    totalSurtido = totalSurtido + baseSurtido
                End If
            End If
        Next i

        ' Repartir sobrante restante uno por uno, respetando lo pedido
        Do While inventario > 0
            For i = 1 To numClientes
                If surtido(i) < solicitudes(i) Then
                    surtido(i) = surtido(i) + 1
                    totalSurtido = totalSurtido + 1
                    inventario = inventario - 1
                    If inventario = 0 Then Exit For
                End If
            Next i
        Loop
    End If

    ' Escribir resultados en las columnas correspondientes para cada cliente
    For i = 1 To numClientes
        With ws.Cells(fila, colResultadoInicio + i - 1)
            If surtido(i) = 0 Then
                .Value = "POR FALTA STOCK"
                .Font.Color = vbRed
            Else
                .Value = surtido(i)
                .Font.Color = vbBlack
            End If
        End With
    Next i

    ' Escribir total surtido y existencia final
    ws.Cells(fila, colTotalSurtido).Value = totalSurtido
    ws.Cells(fila, colFinalInventario).Value = inventario
Next fila

MsgBox "Resultado surtido cargado con éxito...", vbInformation


End Sub


	 
	Saludos,
 


	Diego
 

							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		jose_alk
	

						
      
						
      
							
       FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS
      
							
      Por 




	
jose_alk · publicado  
      
							
      
								Buenos dias. 
 


	Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén. 
 


	Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes.
 


	No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor.
 


	Agradecería mucho si me pudieran ayudar 
 

Libro1.xlsx 
							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		jues
	

						
      
						
      
							
       Buscar Datos con un ComboBox
      
							
      Por 




	
		
		
		
			
		
	
jues · publicado 
      
							
      
								Exelente solución mil gracias 
 

							
      
						
      
					
      • 
				
			
    
		
    
	


    • 
				
					
					
  • 
				
					
					
  • 

    
    
    
        
            Visualizado recientemente
        
        
    
    
    
    
        
      
            
                
    • No hay usuarios registrado para ver esta página.
      • 
            
        
    
        
    
    

    • 
				
			
		

	


	


					

				

			

			
		

		
		



	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Crear nuevo...
    • 
				
			

		

	




		






















	

		

			
Información importante

			
Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.