macro su confronta data

Hai un problema con Excel?

Nuova discussione

macro su confronta data
di gg (utente non iscritto) data: 24/11/2015 15:48:42
Buongiorno a tutti,
per semplicità ho descritto la macro che mi piacerebbe realizzare nel foglio xls allegato.
grazie in anticipo a chi saprà aiutarmi.
gg
di Marius44 data: 24/11/2015 16:05:20
Riallego il file con una macro.
Vedi se va bene e ... attento, EXCEL-VBA non sbaglia.

Ciao,
Mario
di gg (utente non iscritto) data: 24/11/2015 16:31:57
Ciao Mario,
ho scaricato il file, ma non vedo nessuna macro
g
di Marius44 data: 24/11/2015 17:36:09
La macro c'è, te lo assicuro. Prova ad aprile l'Editor di VBA nel Foglio2.
Devi cancellare il numero in A1 del Foglio2 e riscrivere 1. Vedrai che tutto funziona.
Ciao,
Mario
di GG (utente non iscritto) data: 24/11/2015 19:17:40
grazie mario funziona perfettamente ma avevo bisogno qualcosa di diverso.
Ti ho allegato un file che ti indica realmente di cosa ho bisogno
grazie per la disponibilità
g
di Marius44 data: 24/11/2015 19:52:51
Nel file che hai allegato non c'è nulla.
Cioè il pulsante per la macro lo vedo ma non c'è la macro (o un tentativo) e, poi, nel Foglio2 c'è una enorme tabella con tutte, dico tutte, le celle con #RIF!
Non saprei cosa fare.

Ciao,
Mario

PS ma quale versione di Excel utilizzi? Io ho la 2007.
di gg (utente non iscritto) data: 25/11/2015 09:32:53
ciao mario,
non ho inserito macro perchè non saprei da dove partire. Io so fare macro molto semplici, con la procedura guidata e registrandole.
Per fare quanto ti ho esposto nel file ho bisogno di aiuto.
Al pulsante bisognerebbe abbinare la macro che è da creare ex novo.
Ti ho ripulito il foglio dalle celle con gli errori.
Io uso xls 2010
Grazie per la disponibilità
g

di Mister_x (utente non iscritto) data: 25/11/2015 10:05:25
ciao

sub da inserire nel foglio 1 o in un modulo di classe

riallego il tuo file

ciao

Option Explicit
Sub Ver_copia()
Dim i As Long
Dim F1 As String, F2 As String
 F1 = "Foglio 1"
 F2 = "Foglio 2"
If Sheets(F2).Cells(7, "F") <> 1 Then
  MsgBox "Valori inseriti Non Validi"
  Exit Sub
End If

For i = 40 To Sheets(F1).Cells(Rows.Count, 1).End(xlUp).Row
  If Sheets(F2).Cells(5, "B") = Sheets(F1).Cells(i, "A") Then
   Sheets(F1).Cells(i, "B") = Sheets(F2).Cells(5, "J")
   Sheets(F1).Cells(i, "C") = Sheets(F2).Cells(5, "K")
   Sheets(F1).Cells(i, "D") = Sheets(F2).Cells(5, "L")
   
   Exit For
  End If
Next i
MsgBox "OK"
End Sub

di gg (utente non iscritto) data: 26/11/2015 19:08:18
Funziona perfettamente.
grazie e complimenti
g

Vuoi Approfondire?