Selection.AutoFill Range metódusa hibás
2021-05-19T21:07:12+02:00
2021-05-22T21:52:28+02:00
2022-08-12T02:50:31+02:00
Szun
Sziasztok, 

van ez a programsorom: 

    Selection.AutoFill Destination:=sheet1.Range(Cells(sor_u, 7), Cells(sor_u, 9)), Type:=xlFillDefault

Amire a tárgyban írt hibaüzenetet kapom. 
Hogy tudnám elérni, hogy ez a sor működjön? 



Köszi

Szun
Mutasd a teljes hozzászólást!
Szia!
Szerintem használhatod a szövegből oszlopok opciót. Az alábbi makró a kijelölt cellát az A3 -tól kezdve bontja szét a kívánt módon.

Sub Makró2() Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(7, 9), Array(8, 1), Array(14, 2), Array(31, 9)), _ TrailingMinusNumbers:=True 'a rendszám kötőjel betétele - ezt az oszlopban cellánként kell megcsinálni Range("B3").Value = Left(Range("B3").Value, 3) & "-" & Right(Range("B3").Value, 3) End Sub
Itt találsz hozzá helpet.
Üdv.
Mutasd a teljes hozzászólást!

  • Szia!
    Itt találsz hozzá helpet.
    A céltartománynak tartalmaznia kell a forrástartományt is.
    Üdv.
    Mutasd a teljes hozzászólást!
  • Szia, 
    köszönöm a választ. Ígéretesnek tűnt, de így is feldobta ugyanazt a hibát. 

    Ezért ezt most elengedem, és megpróbálom másképp megközelíteni a célt: 

    Ez pl. egy cellatartalom: 
    WLLKK06 PON461 2021-05-18 11:15 RacheLa1

    Ezt a tartalmat szeretném felbontani úgy, hogy egy ilyet kapjak, külön-külön egymás melletti cellákba áthelyezve: 
    WLLKK06 /// PON-461 /// 2021-05-18 11:15

    Fontos, hogy a rendszám kötőjellel legyen elválasztva.
    A '///' jel itt az egyes cellatartalmakat választja el. Így jelöltem, hogy mire van szükségem egy cellában. 

    És persze ezt VBA-ban. 
    Eddig be volt képletezve, de nehézkes és lassú ezt mindig húzogatni és másolgatni, ezért akarom kiváltani egy makróval. 

    Köszi

    Zsolt
    Mutasd a teljes hozzászólást!
  • Szia!
    Nagy probléma lenne egy pár soros mintát feltenni a korábbi makróddal együtt?
    Üdv.
    Mutasd a teljes hozzászólást!
  • Szia, 
    Nem szeretném már ezt a autofill megoldást, mert rájöttem, hogy ezt sokkal egyszerűbben is meg lehet oldani. Volt már nekem hasonló megoldásom, de nem találom.  

    Tehát: 
    Egyszerűen ebből a cellatartalomból (WLLKK06 SRN837 2021-05-21 17:15 Gipsz Géza)
    ki kell másolni és külön (egymás melletti) cellákba elhelyezni a megadott (kimásolt) tartalmakat. A cellatartalom értelemszerűen mindig változik, de az nem, hogy balról hányadik karaktertől meddig kell nekem az adat belőle. Az mindig állandó.
    Azt gondolom, hogy ezt meg lehet oldani egy =bal függvénnyel, de azt nem tudom, hogy hogyan tudom a rendszámot kötőjellel elválasztani.

    A terv az, hogy  
    Külön cellába kell nekem az, hogy: WLLKK06
    Mellé egy másik cellába: SRN-837 (kötőjellel elválasztva)
    És végül egy másik cellába, a dátum: 2021-05-21 17:15
    (a név nem kell) 

    Köszi,  

    Zsolt
    Mutasd a teljes hozzászólást!
  • Szia!
    Szerintem használhatod a szövegből oszlopok opciót. Az alábbi makró a kijelölt cellát az A3 -tól kezdve bontja szét a kívánt módon.

    Sub Makró2() Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(7, 9), Array(8, 1), Array(14, 2), Array(31, 9)), _ TrailingMinusNumbers:=True 'a rendszám kötőjel betétele - ezt az oszlopban cellánként kell megcsinálni Range("B3").Value = Left(Range("B3").Value, 3) & "-" & Right(Range("B3").Value, 3) End Sub
    Itt találsz hozzá helpet.
    Üdv.
    Mutasd a teljes hozzászólást!
  • Szia, 

    Tökéletes!!! 

    Nagyon-nagyon köszönöm!!! 

    Üdv

    Zsolt
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd