Close
Duke shfaqur rezultatin -9 deri 0 prej 2
  1. #1
    i/e regjistruar Maska e Patrioti
    Anėtarėsuar
    17-01-2003
    Vendndodhja
    Neumuenster
    Postime
    347

    Ndihme ne VBA

    Cuna, kam nje excel file me dy flete (sheets) ne te.
    Ne fleten e pare kam nje tabele me afro 300 rjeshta dhe 20 kollona. Ne fleten e dyte kam nje skematike te thjeshtezuar te nje objekti.
    Ajo qe dua te bej eshte nj macro qe:
    1. Te kopjoj faqen e dyte ku ndodhet skematika dhe ta bej "save" me emrin/vleren qe ndodhet ne kutine e pare te tabeles (A1). Ose si flete te re ne file-in egzistues, ose si file i ri exceli (ska shume rendesi po une do preferoja te paren) .
    2. Ne fleten e sapokrijuar/saposavur te populloj kuti te caktuara (F1. D3, Q5....) me te dhenat respektive nga po i njejti rrjesht i tabeles prej nga ku u morr emri (A2, A3, A4....).
    3. Procedura te vazhdoje per nje faqe te dyte me rrjeshtin e dyte e keshtu me radhe.


    pra me fjale te tjera po dua te automatizoj shumefishimin e nje faqeje te caktuar, kutite e se ciles duhet marrin vlera te caktuara nga tabela e faqes se pare.

    shuuuuume faleminderit njeher per njehere.
    Duhet te dish dicka, per te kuptuar qe sdi asgje.

  2. #2
    i/e regjistruar Maska e Patrioti
    Anėtarėsuar
    17-01-2003
    Vendndodhja
    Neumuenster
    Postime
    347
    OK, pasi u perpoqa ca kombinova kodin qe vetem kopjon fleten ku ndodhet skematika dhe e "save" me emrin qe ndodhet ne kutine A2 te faqes se pare. Ky eshte kodi:

    Kodi:
    Option Explicit
     
    Sub Copy_Sheets()
        Dim i As Integer
        Dim wks As Worksheet
        Set wks = Sheets("Tabela")
        For i = 3 To 25
            Sheets("Skematika").Copy after:=Sheets(2)
            ActiveSheet.Name = wks.Cells(i, 1)
            ActiveSheet.Cells(1, 2) = wks.Cells(i, 1)
        Next  
    End Sub
    A e modifiko dot ndonjeri qe kuti te caktuara te fletes se sapokrijuar te marrin vlera te caktuara te rjeshtit perkates?
    Ndryshuar pėr herė tė fundit nga Patrioti : 11-03-2010 mė 20:34
    Duhet te dish dicka, per te kuptuar qe sdi asgje.

Regullat e Postimit

  • Ju nuk mund tė hapni tema tė reja.
  • Ju nuk mund tė postoni nė tema.
  • Ju nuk mund tė bashkėngjitni skedarė.
  • Ju nuk mund tė ndryshoni postimet tuaja.
  •