[es] - Kako nastaviti niz slogova

srdrazic

Član broj: 187994
Poruke: 509

+13 Profil

^{01.04.2011. u 08:09 - pre 158 meseci}

Postoji li mogućnost da se automatski nastavi niz slogova pritiskom na enter ili neko dugme u sheet2.
Ovo mi je potrebno jel imam po nekoliko stotina slogova pa mi je sporo stalno sa copy/paste?
Datoteka je u prilogu.

Teško je biti direktor a još teže ne biti!?

Prikačeni fajlovi

Slogovi_problem.xls - 38k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Kako nastaviti niz slogova

^{01.04.2011. u 21:20 - pre 158 meseci}

Citat:

srdrazic: Postoji li mogućnost da se automatski nastavi niz slogova pritiskom na enter ili neko dugme u sheet2.

Na netu ima dosta VBA kodova za kopiranje na drugi Sheet,
Evo jedan ne baš elegantan , možda netko nabaci nešto jednostavnije.

Code:
Sub CopyWithNonBlanksRow()
Dim NR As Long
Dim InS As Worksheet
Dim OuS As Worksheet
Dim newRow As Integer
Dim colIndex As Integer
Dim rowIndex As Integer
Dim dataRange As Range

Set InS = Sheets("Sheet1")
Set OuS = Sheets("Sheet2")
Set dataRange = InS.Range("M12:N22")
NR = OuS.Range("A" & Rows.Count).End(xlUp).Row + 1

For rowIndex = 1 To dataRange.Rows.Count
        If Application.CountIf(dataRange.Rows(rowIndex), "") < dataRange.Columns.Count Then
dataRange.Rows(rowIndex).Copy
    OuS.Range("A" & NR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
NR = NR + 1
End If
Next rowIndex
'Range("Emp,Manual,Role,OHrs,SHrs,Casual,CRate,AddType,AddHrs,FDate,TDate").Value = ""
Sheets("Sheet1").Select
Application.CutCopyMode = False
    Range("E3").Select
End Sub

Prikačeni fajlovi

CopyNonBlankCells.xls - 51.5k

Odgovor na temu

srdrazic

Član broj: 187994
Poruke: 509

+13 Profil

Re: Kako nastaviti niz slogova

^{02.04.2011. u 15:37 - pre 158 meseci}

Pa ovo super radi, samo bi mi trebalo da prepiše slovo "P" pored prvog broja i negativne vrednosti kako je u slogu prikazano.
Negativne i pozitivne vrednosti pokazuju, drugom programu u kojem importujem niz, koja je desna a koja je leva strana..

Teško je biti direktor a još teže ne biti!?

Odgovor na temu

srdrazic

Član broj: 187994
Poruke: 509

+13 Profil

Re: Kako nastaviti niz slogova

^{02.04.2011. u 16:32 - pre 158 meseci}

Rešio sam problem spajanjem dve ćelije. Hvala za pomoć. Ako može VBA code-om još bolje.

Teško je biti direktor a još teže ne biti!?

Prikačeni fajlovi

CopyNonBlankCells2.xls - 58.5k

Odgovor na temu