Ciao a Titti mi Chiamo Maurizio , Ora il Problema e questo :
Io Vorrei Creare il fatto che in Due Determinate Celle e Precisamente in ( Cella D14 e in Cella E14 ) , Io possa scrivere dei Numeri e Lettere sotto forma di Coordinate , come ad Esempio : ( A1 - C4 ) .
Ora Quello che Vorrei Io e che a Sua Volta Nelle celle ( N1 e O1 ) possano Ricevere tali Coordinate , e fino a qui nulla di problematico .
Però il problema subentra nel Momento in qui , Voglio far Fare la verifica dei dati inseriti .
Esempio: Come programmino il Mio Listato non fà una piega , il Problema compare quando nelle cella D14 ho nella cella E14 , che Io Riporti Esattamente una Coordinata Valida o meno ( 1 - 4 ) anzichè ( A1 C4 ) , a tale programma non importa assolutamente nulla .
Mentre io Vorrei che saltasse all'ultima Posizione dove ho inserito L'msgbox di Verifica .
Vi Posso garantire che ho provato e riprovato per tentare di Risolvere da mè questo Enicma Senza mai Riuscirci .
Grazie per tutto l'aiuto che riuscirete a darmi in Merito Sinceri Saluti da A.Maurizio
(P.s) Questo e ciò che ho provato a Scrivere Io ; mi funziona ma in parte , Perchè ? :
Function Prima_Lettera_Coordinata()
'On Error Resume Next
S = Range("D14").Text = ""
If Len(S) > 1 Then
Range("N1").Value = Range("D14").Value & ""
Range("O1").Value = Range("E14").Value & ""
'Exit Function
End If
If Not (S = "A1" Or S = "B1" Or S = "C1" Or S = "D1" Or S = "E1" Or S = "F1" Or S = "G1" Or S = "H1" _
Or S = "a1" Or S = "b1" Or S = "c1" Or S = "d1" Or S = "e1" Or S = "f1" Or S = "g1" Or S = "h1") Then
Else
MsgBox ("Coordinata non Ammessa" & Chr(13) & "Riprova"), vbInformation, "Attenzione"
End If
'Primo_Numero_Coordinata
End Function