VBA.Mania

vbamania.pl

Dziś jest wtorek, 14 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	wstawianie nazwy pliku przed rozszerzenie xls w vlookup otwarty rozpoczął: TomekP postów: 6

napisał: TomekP postów: 4 umieszczony: 28 września 2005 09:01
	ten fragment został wygenerowany autom. przez rejestrację makra, więc jakby nie jest ta jedynka potrzebna. Teraz mam Dim Wpis As String Wpis = CDate(Range("d1")) Wpis = Format(Wpis, "ddmmmyy") MsgBox Wpis ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,'D:\marketing\raporty\WZ skrzydła i ościeżnice - raporty dzienne\TERAZ\[" & Wpis & ".xls]Arkusz1'!R2C1:R301C3,3,0)" Selection.AutoFill Destination:=Range("D4:D241"), Type:=xlFillDefault 'Range("D4:D241").Select i działa :) , a kolega losmac z forum.jelcyn.webd.pl napisał Dim dDate as Date Dim sName As String dDate = CDate(ThisWorkbook.Worksheets("nazwa").Range("E1")) dDate = DateAdd("d", 1, dDate) sName = Format("ddMMMyy", dDate) ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,'D:\marketing\raporty\WZ skrzydła i ościeżnice - raporty dzienne\TERAZ\" & sName & ".xls]]Arkusz1'!R2C1:R301C3,3,0)" jednak jak to moje przestanie działać (makro ma zrobić 5 pętli, żeby wypełnic 5 dni) zrobię to jak należy :) dzięki

napisał: Rycho postów: 291 umieszczony: 27 września 2005 16:45
	Witaj ponownie. Błąd chyba jest w szczególe: w VLOOKUP(RC2 - brakuje jedynki po R.

napisał: TomekP postów: 4 umieszczony: 27 września 2005 16:13
	ok, ma to byc Sub Wyszukaj() Dim Wpis As String Wpis = CDate(Range("k1")) Wpis = Format(Wpis, "ddmmmyy") ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,'D:\marketing\raporty\WZ skrzydła i ościeżnice - raporty dzienne\TERAZ\[" & Wpis & ".xls]Arkusz1'!R2C1:R301C3,3,0)" End Sub ale jednak uzywanie formuły do podania daty w d1 nie uzupełnia Wpis w vlookup (szuka pliku) daty są w kolejnych kolumnach - najnowsza jest w d1 (Range("D1").FormulaR1C1 = "=RC[1]+1") Sub Makro1() Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightOrBelow Range("D1").FormulaR1C1 = "=RC[1]+1" Range("D4").Select Wyszukaj End Sub

napisał: TomekP postów: 4 umieszczony: 27 września 2005 16:03
	szerzej to wygląda to tak Dim Wpis As String Wpis = CDate(Range("d1")) Wpis = Format(Wpis, "ddmmmyy") 'MsgBox Wpis ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,'D:\marketing\raporty\WZ skrzydła i ościeżnice - raporty dzienne\TERAZ\[" & TEXT(A1;"ddmmmrr") & ".xls]Arkusz1'!R2C1:R301C3,3,0)" razem z Twoją propozycją. Ale wyrzuca mi błąd nawet jeśli podam prawidłowy adres (np. D1 - od d zaczyna się pole daty). Nie wiem nawet czy deklaracja Wpis jest dobra, ale uczę się pilnie :) Compile error. Expected : list separator or ) Msgbox Wpis wyrzuca poprawną datę (19wrz05 - nazwa pliku to 19wrz05.xls) no nic, walczę dalej, dzięki.

napisał: Rycho postów: 291 umieszczony: 27 września 2005 00:18
	Witaj. Spróbuj, przy założeniu, że data jest w komórce A1 ="=VLOOKUP(RC2,'D:\marketing\raporty\WZ skrzydła i ościeżnice - raporty dzienne\TERAZ\[" & TEXT(A1;"ddmmmrr") & ".xls]Arkusz1'!R2C1:R301C3,3,0)"

napisał: TomekP postów: 4 umieszczony: 26 września 2005 14:32
	mam cos takiego ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,'D:\marketing\raporty\WZ skrzydła i ościeżnice - raporty dzienne\TERAZ\[19wrze05.xls]Arkusz1'!R2C1:R301C3,3,0)" w miejscu daty chciałbym, żeby pojawiała się data z arkusza, wpisywana przez makro wczesniej (przycisk dodaj dzień). proszę o info, jak można to zrobić.

wstecz 1 dalej

wszystkich stron: 1