macro, excel, búsqueda mediante caja de texto, boton. Range.Find()

luego de introducir la cadena buscar si exhiste nos muestra un msgbox donde nos imprime los datos de 2 columnas a la derecha del rango B1. osea a columna D.

Private Sub Button_buscar_Click()
Dim CadenaBuscar As String
Dim Rango As Range
Dim midato As Range
Dim dato As String
dato = Text_buscar
Set Rango = ActiveSheet.Range("B1:B400")
'Set Midato = Sheets("Hoja1").Range("A1:
On Error Resume Next
Set midato = Rango.Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (midato) Is Nothing Then
MsgBox ("nibiru: _ " & midato.Offset(0, 2).Value)
' hacemos  llenamos las cajas de texto
'TextBox2.Value = midato.Offset(0, 2).Value
Else
MsgBox ("nibiru: _ " & CadenaBuscar)
End If
Set midato = Nothing
   ' Range("A7:I382").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A4:I5"), Unique:=False
End Sub

Lebv

session, checkbox, php, mysql

//consulta... $cadbusca = "select .....where ...";
  $resultado =mysql_query($cadbusca);
        echo"

            ";
 while($filas=mysql_fetch_array($resultado)){
#cadena vemos si  el producto ya asido asignado a la session  o no,
# dependiendo del caso muestra un icono para quitarlo   de la session
# o agregarlo, es la opcion para hacerlo producto por producto. 
#pero si queremos por grupo entonces utilizamos los checkbox.
            $cadena = ereg_replace( "([     ]+)","%20",$filas['ruta_img1']);
    #qui meto el if y variables cadena
if(!$carro || !isset($carro[md5($filas['idproductos'])]['identificador']) || $carro[md5($filas['idproductos'])]['identificador']!= md5($filas['idproductos'])){ 
$cadenaAgregarQuitar="";
  }else{
$cadenaAgregarQuitar="";  
 } 
        echo" "
   .$cadenaAgregarQuitar."";
                
                }
                echo "

            

            
Nombre
            
Descripcion
            
Categoria
            
Cantidad
            
Precio
Select
            
Imagen
            
            
Agregar/Quitar


 


            
".$filas['codigo_producto']." 
    
".limitarPalabras($filas['descripcion_producto'],20)."
   
".$filas['nombre_tipo_producto']."
   
".$filas['Cantidad_producto']."
    
   
".$filas['precio']."
   

   

       
     
";
}
 

ahora el código de agregacar.php

md5($id), 
        'idproductos'=>$id,
 'cantidad'=>$cantidad,
 'idproductos'=>$id,
 'stock'=>$row2['Cantidad_producto'],     'descripcion_producto'=>$row2['descripcion_producto'],
'precio'=>$row2['precio']
);
}
$_SESSION['carro']=$carro; 
 
    header("Location:vender.php?".SID);  
 
}else{
//PARA EL CHECKBOX END
$qry=dime("select * from productos where  idproductos='".$id."'"); 
$row=mysql_fetch_array($qry); 
//Si ya hemos introducido algún 
//producto en el carro lo 
//tendremos guardado temporalmente 
//en el array superglobal 
//$_SESSION['carro'], de manera 
//que rescatamos los valores de 
//dicho array y se los asignamos 
//a la variable $carro, previa  
//comprobación con isset de que 
//$_SESSION['carro'] ya haya sido 
//definida 
if(isset($_SESSION['carro'])) 
$carro=$_SESSION['carro']; 
//Ahora introducimos el nuevo 
//producto en la matriz $carro, 
//utilizando como índice el id 
//del producto en cuestión, 
//encriptado con md5. 
//Utilizamos md5 porque genera 
//un valor alfanumérico que luego, 
//cuando busquemos un producto 
//en particular dentro de la 
//matriz, no podrá ser confundido 
//con la posición que ocupa dentro 
//de dicha matriz, como podría 
//ocurrir si fuera sólo numérico. 
//Cabe aclarar que si el producto 
//ya había sido agregado antes, 
//los nuevos valores que le 
//asignemos reemplazarán a los 
//viejos.  
//Al mismo tiempo, y no porque 
//sea estrictamente necesario 
//sino a modo de ejemplo, 
//guardamos más de un valor en 
//la variable $carro, valiéndonos 
//de nuevo de la herramienta array. 
#agregamos los valores al array de session Oo
$carro[md5($id)]=array('identificador'=>md5($id), 
         'idproductos'=>$id,
  'cantidad'=>$cantidad,
  'idproductos'=>$id,
  'stock'=>$row['Cantidad_producto'],
 'descripcion_producto'=>$row['descripcion_producto'], 
 'precio'=>$row['precio']
); 
//Ahora dentro de la sesión 
//($_SESSION['carro']) tenemos 
//sólo los valores que teníamos 
//(si es que teníamos alguno)  
//antes de ingresar a esta página 
//y en la variable $carro tenemos 
//esos mismos valores más el que 
//acabamos de sumar. De manera que  
//tenemos que actualizar (reemplazar) 
//la variable de sesión por la 
//variable $carro. 
$_SESSION['carro']=$carro; 
//Y volvemos a nuestro catálogo de 
//artículos. La cadena SID representa 
//al identificador de la sesión, que, 
//dependiendo de la configuración del 
//servidor y de si el usuario tiene 
//o no activadas las cookies puede 
//no ser necesario pasarla por la url. 
//Pero para que nuestro carro funcione, 
//independientemente de esos factores, 
//conviene escribirla siempre. 
if (!isset($dedonde)) {
    header("Location:catalogo.php?".SID); 
}else{
    header("Location:vender.php?".SID);  
}

}

?> 

 librería JpGraph,  PHP, mysql.

img->SetAntiAliasing(); 
$graph->SetMarginColor('gray'); 
//$graph->SetShadow(); 

// Setup margin and titles 
$graph->title->Set("Productos Mas Comprados"); 

$p1 = new PiePlot3D($array); 
$p1->SetSize(0.35); 
$p1->SetCenter(0.5); 

// Setup slice labels and move them into the plot 
$p1->value->SetFont(FF_FONT1,FS_BOLD); 
$p1->value->SetColor("black"); 
$p1->SetLabelPos(0.2); 

//$nombres=array("pepe","luis","miguel","alberto"); 
$p1->SetLegends($nombres); 

// Explode all slices 
$p1->ExplodeAll(); 

$graph->Add($p1); 
$graph->Stroke(); 
?>