MS Excel

Nerobím si iluzie, ale VBA je mi velmi vzdialené. Pre zjednodušenie výpočtov som z C++ exportoval súbory csv do excel a chcem v excel robiť výpočty. Preto môj pôvodný dotaz. Študovať VBA v tejto chvíli považujem za mrhanie času. Zadaný problém z pohľadu skúseného programátora VBA považujem za triviálny, preto som sa obrátil na predpokladám odborníkov , možná gurov v Exceli.Nakoľko sa jedná o serióznu prácu, aby som nemusel experimentovať, požiadal som o návrh riešenia. Viem, že to dokážem naštudovať, ale neviem, či by to bolo profesionálne riešenie, bez možných, nepredvídateľných chýb.
Skúsim to:
Sub NoveMeno ()
Shet(6).Name= Sheet(3).Range("A2")
Workbooks.Filename:="C:\MyJob\Sheet.Active.Workbooks("Ulohy").Sheet.Range("A2").MoveAfter:=Workbooks("Ulohy").Sheet(5)
End Sub

MyJob nemusí byť otvorený, stačí preniesť dáta zo zodpovedajúceho listu do "listu6"citovat

Co mě asi tak napadá.
Samozřejmě musí toto makro být umístěno na Listu3 v sekci Worksheet_SelectionChange!


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'test na změnu položky A2
If ActiveCell.Row = 2 And ActiveCell.Column = 2 Then ' nejsi na buňce A2
Jmeno = Cells(2, 2)
If Cells(2, 151) = Jmeno Then
' položka se shoduje - nedělej nic
Exit Sub
Else
' ulož si položku pro příští porovnání
Cells(2, 151) = Jmeno
End If

Sesit = "MyJob"
List = ActiveSheet.Name
pocet = Sheets.Count

' přidej nový list do sešitu Ulohy
Sheets.Add After:=Sheets(pocet)
' přejmenuj jej na požadovaný název
Sheets(pocet + 1).Name = Jmeno
' otevři sešit - v tomto případě MyJob - uložený ve stejném adresáři
Workbooks.Open Filename:=Sesit + ".xlsx"

' zkopíruj oblast buněk A1 až EU35
Workbooks(Sesit).Sheets(Jmeno).Range("A1", "EU35").Copy
' ulož ji do nově vytvořeného listu
Workbooks("Ulohy").Sheets(Jmeno).Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' potlačení hlášky o oblasti kopírování ve schránce
Application.DisplayAlerts = False
' zavři sešit MyJob
Workbooks(Sesit).Close

Application.DisplayAlerts = True
Application.CutCopyMode = False
Sheets(List).Select
End If

End Sub


Loncitovat

Pak tato úprava by měla dostačovat. Netestoval jsem, jen upravil původní kód.
Špatně pochopeno ze zadání.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'test na změnu položky A2
If ActiveCell.Row = 2 And ActiveCell.Column = 2 Then ' nejsi na buňce A2
Jmeno = Cells(2, 2)
If Cells(2, 151) = Jmeno Then
' položka se shoduje - nedělej nic
Exit Sub
Else
' ulož si položku pro příští porovnání
Cells(2, 151) = Jmeno
End If

Sesit = "MyJob"
List = ActiveSheet.Name
' číslo listu pro přejmenování
pocet = 6

' přejmenuj jej na požadovaný název
Sheets(pocet).Name = Jmeno
' otevři sešit - v tomto případě MyJob - uložený ve stejném adresáři
Workbooks.Open Filename:=Sesit + ".xlsx"

' zkopíruj oblast buněk A1 až EU35
Workbooks(Sesit).Sheets(Jmeno).Range("A1", "EU35").Copy
' ulož ji do listu 6
Workbooks("Ulohy").Sheets(Jmeno).Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' potlačení hlášky o oblasti kopírování ve schránce
Application.DisplayAlerts = False
' zavři sešit MyJob
Workbooks(Sesit).Close

Application.DisplayAlerts = True
Application.CutCopyMode = False
Sheets(List).Select
End If

End Sub


Samozřejmě. že neznám data Listu3 použil jsem
' ulož si položku pro příští porovnání
Cells(2, 151) = Jmeno
Buňku Cells(2,151) - tedy "EV2" lze zvolit za jinou vhodnou pro data v listu.
Z tohoto důvodu jsou ukázky vhodné.

Požadavek na kopii byly DATA - tedy funkce PasteSpecial...
Loncitovat

Není zač, snad to bude již v pořádku.
Loncitovat