incolla solo le prime 10 righe

[matzap]

Ciao,
ho un quesito da porvi:
normalmente da una programma aziendale copio manualmente una serie di righe (meno di 10) con una macro le incollo in 10 righe di un foglio excel.
può accadere che le righe da copiare siano 11. allora vorrei fargli incollare solo le prime 10.
è possibile?
Nel caso sia possibile si può magari far incollare l'11 riga da un'altra parte?
Il codice che uso è:
Range("A10").Select
ActiveSheet.PasteSpecial Format:="Testo", link:=False, DisplayAsIcon:=False

Grazie dell'aiuto
Ciao

[Anthony47]

Una zona copiata (anche fosse discontinua) puo' solo essere incollata integralmente in una zona continua.
Dovrai quindi copiare solo max 10 righe, se vuoi che max 10 siano incollate; ovviamente lo puoi fare con una macro che contenga:

Codice: Seleziona tutto

Selection.Resize(10, 5).Copy Destination:=Sheets("Quale?").Range("Quale?")

E' un esempio; copia partendo dalla Selezione corrente per 10 righe e 5 colonne e ne incolla in valore nell'area che descriverai come Destination.

Ciao

[matzap]

purtroppo il problema è che devo copiarle a mano.
ciao

[Anthony47]

purtroppo il problema è che devo copiarle a mano.

Non ho capito che cosa vuoi dire.

[matzap]

Ciao Anthony,
volevo dire che, se ho capito bene, il codice che mi hai suggerito riduce l'intervallo di selezione prima di copiarlo.
copiando i dati (stringhe) da un programma aziendale, non da excel il codice non funziona.
quello che vorrei cercare di fare è:
1 copiare un numero imprecisato di righe da programma aziendale
2 incollarne su foglio excel solo le prime 10

ciao

[Anthony47]

Per automatizzare la copia dal programma aziendale devi usare le utility messe a disposizione dal programma aziendale, se ci sono....
Comunque, lasciando irrisolto la copia automatica dal programma sorgente, se e' sempre valida la richiesta di incollare solo le prime 10 in una certa posizione ed eventualmente le successive in altra posizione, si potrebbe immaginare di:
-incollare le N righe su un foglio di servizio
-contare le righe incollate
-se minore o uguale a 10 copiare tutte le righe e incollare nella prima destinazione
-se maggiore di 10
--copiare le prime 10 righe e incollare nella prima posizione
--copiare le ulteriori righe e incollare nella seconda posizione

Se questa automazione e' di qualche interesse allora indica come fare a rilevare la prima e la seconda posizione e cercheremo di realizzarla.

Ciao

[matzap]

si a questa soluzione avevo pensato. chiedevo se ci fosse un metodo diretto.
Proverò a fare così .
grazie

[matzap]

Buongiorno Antony,
è un post un po' vecchio ma ho fatto un piccolo progresso:

prima di incolare i dati, invece di selezionare solo la cella A10 e poi incollare,
seleziono l'intervallo A10:N19e poi incollo.
in questo modo se ho copiato più di 10 righe mi vengono incollate solo le prime 10.
il problema sta quando ne copio meno. allora mi appare il messaggio:
" le dimensioni delle aree sono diverse, incollare comunque?"
vorrei far proseguire l'incollaggio automaticamente, cioè dare risposta affermativa alla domanda in automatico. E' possibile?
Inoltre è possibile sapere quali sono le dimensioni dell'area di incollaggio e dell'area copiata?

Codice: Seleziona tutto

Range("A10:K19").Select
    ActiveSheet.PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False

Buona giornata

[Anthony47]

Per evitare il messaggio dovrebbe bastare inserire prima di quelle istruzioni

Codice: Seleziona tutto

Application.DisplayAlerts = False

E subito dopo

Codice: Seleziona tutto

Application.DisplayAlerts = True

Quanto alle aree, non sono in grado di simulare la tua situazione quindi non so che suggerire...

Ciao

[matzap]

perfetto!,
Semplice ed efficace!!!
Grazie