[jarekjarek]

Witam! Kombinuje i nie mogę sobie poradzić z makrem które skopiuje komórki z arkusza 'wzorzec" do aktywnego arkusza.

i drugie makro które skopiuje z 'Wzorca" do arkusza o nazwie podanej przeze mnie

Zrobiłem tylko takie i dalej nie mogę sobie poradzić

Kod:

Sub testkopiowania() Sheets("Wzorzec").Select     Range("I8:AI40").Select     Selection.Copy     Sheets("Arkusz2").Select     Range("I8:AI40").Select     ActiveSheet.Paste Sheets("Wzorzec").Select     Range("F41:AH48").Select     Selection.Copy     Sheets("Arkusz2").Select     Range("F41:AH48").Select     ActiveSheet.Paste Sheets("Wzorzec").Select     Range("F40").Select     Selection.Copy     Sheets("Arkusz2").Select     Range("F40").Select     ActiveSheet.Paste End Sub

[Trebor]

Hej

Kod:

Sub testkopiowania() 'do aktywnego Sheets("Wzorzec").Range("I8:AI40").Copy Range("I8") 'do wybranego Sheets("Wzorzec").Range("I8:AI40").Copy Sheets("Arkusz2").Range("I8") End Sub

Pozdrawiam

[jarekjarek]

Dzięki Trebor!

pisząc do określonego przeze arkusza mnie miałem na myśli podanie nazwy arkusza do wklejenia kopiowanych komórek w oknie msbox

[Trebor]

Przynajmniej połowę skopiowałem z pomocy

Kod:

Sheets("Wzorzec").Range("I8:AI40").Copy Application.InputBox( _     prompt:="Select a cell", Type:=8)

Należy to jeszcze zabezpieczyć przed radosną twórczością użytkownika

Pozdrawiam

[jarekjarek]

dzięki

[jarekjarek]

Coś mi nie działa to

Kod:

Sheets("Wzorzec").Range("I8:AI40").Copy Application.InputBox( _     prompt:="Select a cell", Type:=8)

po zaznaczeniu wybranego arkusza wywala mi błąd i każe sprawdzić czy formuła zawiera odpowiednią ścieżkę i odwołanie do komórki

[Trebor]

W wybranym arkuszu wskaż docelową komórkę.

[jarekjarek]

Tak tez próbowałem i nie działa error 1004

A nie można obrazu do właściwych komórek we wskazanym arkuszu?

[jarekjarek]

Panowie eksperci nic sie nie da zrobić z tym kodem dalej mi nie działa

Kod:

heets("Wzorzec").Range("I8:AI40").Copy Application.InputBox( _     prompt:="Select a cell", Type:=8)

[Trebor]

Z moich testów wynika, że kod jest poprawny. Problemem może być gdy miejsce w które są kopiowane dane jest zbyt "daleko" w prawo i obszar docelowy wychodzi poza ilość dostępnych kolumn.

Pozdrawiam

[jarekjarek]

ale ja testuje na pustym arkuszu więc nie rozumie

[jarekjarek]

To może z innej beczki

dane pobrane Sheets("arkusz1").Range("a1:r61").Copy

ma wkleić do aktywnych arkuszy które sam wcześniej wybiorę poprzez Ctrl



To na pewno prościzna ale kombinuje i nic mi nie wychodzi a nikt nie chce mi powiedzieć jaki jest program do VB po polsku chyba że nie ma

[Trebor]

Zerknij do załącznika czy takie rozwiązanie jest do przyjęcia.

---

Kopiuj.zip

Pobierz Plik ściągnięto 746 raz(y) 11.44 KB

[jarekjarek]

Tak jest do przyjęcia tylko przydało by się wpisanie arkuszy których ma nie pokazywać w tym okienku i jak to makro przenieść do mojego pliku ?

[jarekjarek]

Juz sobie skopiowałem.

tylko jak nie pokazywać niektórych arkuszy w tym okienku i jeszcze w którym miejscu i co dopisać aby tylko otworzyło wybrany arkusz. W który miejscu to chyba wiem po If ListBox1.Selected(a) Then tylko co tam wpisać.

Przepraszam że tak zawracam głowę ale sam nie potrafię.

Kod:

Option Explicit Private Sub UserForm_Initialize() Dim a As Byte For a = 1 To Worksheets.Count ListBox1.AddItem Worksheets(a).Name Next a End Sub Private Sub CommandButton1_Click() Dim a As Byte For a = 0 To Worksheets.Count - 1 If ListBox1.Selected(a) Then End If Next a Unload Me End Sub