Új hozzászólás Aktív témák

• #31713 Fferi50 Topikgazda adamch4 #31712

  Új Válasz 2016-06-03 23:13:58 #31713

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz adamch4 #31712 üzenetére

  Szia!

  Nem tanácsos VBA foglalt neveket (Today, Copy) adni a saját makróinknak, mert abból csak baj lesz.

  Az értékmásolást egyszerűen megoldhatod:
  Sub MyCopy()
Worksheets("Output").Range("B1:B20").Value =Worksheets("Input").Range("A1:A20").Value
End Sub

  Ha valamitől függ, hogy melyik oszlopba menjen, akkor vagy select case vagy if utasításokkal lehet szétválasztani az eseteket:

  Sub MyCopy()
If oszlop ="B" then
Worksheets("Output").Range("B1:B20").Value =Worksheets("Input").Range("A1:A20").Value
EndIf
If oszlop ="C" then
Worksheets("Output").Range("C1:C20").Value =Worksheets("Input").Range("A1:A20").Value
EndIf
If oszlop ="D" then
Worksheets("Output").Range("D1:D20").Value =Worksheets("Input").Range("A1:A20").Value
EndIf
'stb...
End Sub

  Üdv.

Új hozzászólás Aktív témák