Otomatik fiyat çekme

nunu446 · 28 Şubat 2021

Merheba. Aşağıya 2 tane dosya yükleyeceyim. F2 adlı dosyada 2 tarih yazılmışdır. Bu tarihlerin adlarına uygun klasörler var ve klasörlerin içinde şirket isimlerine uygun excel dosyaları var. Sorum şu ki, 1-ci tarih yazan yerin sütununa klasörden uygun isimli dosyayı bulup, mesela mehmet aydınlatma isimli dosyanın ana kapağındaki TOTAL isimin karşısındaki dolgu renki sarı olan rakamı getirmek, aynı 2-ci tarih yazan yerin altındaki sütuna da aynı işlemi yapmasını istiyorum. Önceden teşekkür ediyorum.

https://www.dosyaupload.com/gmzE https://www.dosyaupload.com/gmzF

nunu446 · 2 Mart 2021

Yok mu bi fikri olan? Vlookup ile yapa bilirmiyim? Yoksa SQL server ile?

Korhan Ayhan · 2 Mart 2021

En kolay yöntem;

İki dosyayı açın.
F2 isimli dosyada D3 hücresine = yazıp diğer dosyaya geçin ve E6 hücresini seçip ENTER tuşuna basın.

Böylece dosyalar arası bağlantı kurmuş olursunuz.

nunu446 · 2 Mart 2021

Korhan Ayhan' Alıntı:
En kolay yöntem;

İki dosyayı açın.
F2 isimli dosyada D3 hücresine = yazıp diğer dosyaya geçin ve E6 hücresini seçip ENTER tuşuna basın.

Böylece dosyalar arası bağlantı kurmuş olursunuz.

Peki o zaman bana makro kodu lazım: Dosyanın ana kapağındaki TOTAL isminin karşısındaki rakama ulaşsın.

Korhan Ayhan · 2 Mart 2021

Forumda arama yapınız..

nunu446 · 2 Mart 2021

Korhan Ayhan' Alıntı:
Forumda arama yapınız..

Sayfada dolgu rengi sarı olan hücreyi seçmeyi - makro ile nasıl yazılır?

nunu446 · 2 Mart 2021

Kod:

Sub Sunum()
'
' Sunum ??????
'
' ????????? ??????: Ctrl+n
'
    Windows("0.FORMA 2 - 2021.02.26.xlsm").Activate
    ActiveCell.FormulaR1C1 = _
        "='[1.ELXAN - BALAXANI- F2 - 2020.12.25.xlsx]TOTAL'!R10C5"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = _
        "='[2.FHN ELNUR - BALAXANI - F2 - 2020.11.13.xlsx]TOTAL'!R10C5"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = _
        "='[3.1.ZABIL MTN - BALAXANI - F2 - 2021.01.22.xlsx]TOTAL'!R15C5"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = _
        "='[3.2.ZABIL MTN - KÜRD?XANI - F2 - 2020.11.27.xlsx]TOTAL'!R7C5"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = _
        "='[3.3.ZABIL MTN - MASTAGA - F2 - 2021.01.22.xlsx]TOTAL'!R8C5"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = _
        "='[4.ARCHICO ?RSAD - ?MIRCAN - F2 - 2021.02.19.xlsx]TOTAL'!R24C5"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = _
        "='[5.1.TEYMUR - BALAXANI - F2 - 2021.02.19.xlsx]TOTAL'!R9C5"
    Range("E10").Select
    ActiveCell.FormulaR1C1 = _
        "='[5.2.TEYMUR - ZAVOD - F2 - 2021.02.26 +.xlsx]TOTAL'!R6C5"
    Range("E11").Select
    ActiveCell.FormulaR1C1 = _
        "='[5.3.TEYMUR- ZABRAT - F2 - 2020.11.27.xlsx]TOTAL'!R6C5"
    Range("E12").Select
    ActiveCell.FormulaR1C1 = _
        "='[5.4.TEYMUR - DIG?R - F2 - 2020.11.13.xlsx]TOTAL'!R9C5"
    Range("E13").Select
    ActiveCell.FormulaR1C1 = _
        "='[6.1.ILQAR - BALAXANI - F2 - 2020.11.13.xlsx]TOTAL'!R6C5"
    Range("E14").Select
    ActiveCell.FormulaR1C1 = _
        "='[6.2.ILQAR - BUZOVNA - F2 - 2020.11.20.xlsx]TOTAL'!R9C5"
    Range("E15").Select
    ActiveCell.FormulaR1C1 = _
        "='[6.3.ILQAR - DIG?R - F2 - 2020.12.25.xlsx]TOTAL'!R10C5"
    Range("E16").Select
    ActiveCell.FormulaR1C1 = _
        "='[7.1.Q?DIR - T?Z? PIR- F2 - 2021.02.26 +.xlsx]TOTAL'!R42C5"
    Range("E17").Select
    ActiveCell.FormulaR1C1 = _
        "='[7.2.Q?DIR - M?RD?KAN - F2 - 2021.02.26 +.xlsx]TOTAL'!R14C5"
    Range("E18").Select
    ActiveCell.FormulaR1C1 = _
        "='[8.TILKE - BALAXANI - F2 - 2021.02.19.xlsx]TOTAL'!R19C5"
    Range("E19").Select
    ActiveCell.FormulaR1C1 = _
        "='[9.BORIS - ADNSU - F2 - 2021.02.19.xlsx]TOTAL'!R21C5"
    Range("E20").Select
    ActiveCell.FormulaR1C1 = _
        "='[10.1.FUAD S?BAIL - BIBIHEYB?T - F2 - 2020.12.25.xlsx]TOTAL'!R42C5"
    Range("E21").Select
    ActiveCell.FormulaR1C1 = _
        "='[10.2.FUAD S?BAIL - M?RD?KAN - F2 - 2020.12.25.xlsx]TOTAL'!R19C5"
    Range("E22").Select
    ActiveCell.FormulaR1C1 = _
        "='[11.1.ILKIN KB - BALAXANI - F2 - 2021.01.22.xlsx]TOTAL'!R23C5"
    Range("E23").Select
    ActiveCell.FormulaR1C1 = _
        "='[11.2.ILKIN KB - BUZOVNA - F2 - 2020.09.18.xlsx]TOTAL'!R8C5"
    Range("E24").Select
    ActiveCell.FormulaR1C1 = _
        "='[11.3.ILKIN KB - M?RD?KAN- F2 - 2021.02.26 +.xlsx]TOTAL'!R10C5"
    Range("E25").Select
    ActiveCell.FormulaR1C1 = _
        "='[12.1.R?SAD AZCC - BADAMDAR - F2 - 2020.11.13.xlsx]TOTAL'!R9C5"
    Range("E26").Select
    ActiveCell.FormulaR1C1 = _
        "='[12.2.R?SAD AZCC - BAYIL - F2 - 2020.11.13.xlsx]TOTAL'!R20C5"
    Range("E27").Select
    ActiveCell.FormulaR1C1 = _
        "='[13.1.ILQAR FQ S - QIS PARKI - F2 - 2020.12.11.xlsx]TOTAL'!R16C5"
    Range("E28").Select
    ActiveCell.FormulaR1C1 = _
        "='[13.2.ILQAR FQ S - NIZAMI KÜÇ?SI - F2 - 2020.12.04.xlsx]TOTAL'!R12C5"
    Range("E29").Select
    ActiveCell.FormulaR1C1 = _
        "='[13.3.ILQAR FQ S - NOVXANI - F2 - 2021.02.19.xlsx]TOTAL'!R21C5"
    Range("E30").Select
    ActiveCell.FormulaR1C1 = _
        "='[14.1.FHN RÖVS?N - BALAXANI - F2 - 2021.02.26 +.xlsx]TOTAL'!R12C5"
    Range("E31").Select
    ActiveCell.FormulaR1C1 = _
        "='[14.2.FHN RÖVS?N - BALAXANI - SEXL?R - F2 - 2021.02.19.xlsx]TOTAL'!R6C5"
    Range("E32").Select
    ActiveCell.FormulaR1C1 = _
        "='[14.3.FHN RÖVS?N - BALAXANI - KERAMIKA - F2 - 2021.02.26 +.xlsx]TOTAL'!R6C5"
    Range("E33").Select
    ActiveCell.FormulaR1C1 = _
        "='[14.4.FHN RÖVS?N - BAZA AZPETROL - F2 - 2021.02.19.xlsx]TOTAL'!R6C5"
    Range("E34").Select
    ActiveCell.FormulaR1C1 = _
        "='[14.5.FHN RÖVS?N - SUM ARXASI - F2 - 2020.02.12.xlsx]TOTAL'!R26C5"
    Range("E35").Select
    ActiveCell.FormulaR1C1 = _
        "='[15.FORTIS QRUP - BALAXANI - F2 - 2020.11.06.xlsx]TOTAL'!R11C5"
    Range("E36").Select
    ActiveCell.FormulaR1C1 = _
        "='[16.1.CEYHUN - BALAXANI - F2 - 2020.11.13.xlsx]TOTAL'!R6C5"
    Range("E37").Select
    ActiveCell.FormulaR1C1 = _
        "='[16.2.CEYHUN - BALAXANI - ZAVOD- F2 - 2021.02.05.xlsx]TOTAL'!R6C5"
    Range("E38").Select
    ActiveCell.FormulaR1C1 = _
        "='[17.NATIQ - BALAXANI - F2 - 2021.02.12.xlsx]TOTAL'!R11C5"
    Range("E39").Select
    ActiveCell.FormulaR1C1 = _
        "='[18.1.SAHIN VERGIL?R- BALAXANI - F2 - 2021.02.19.xlsx]TOTAL'!R14C5"
    Range("E40").Select
    ActiveCell.FormulaR1C1 = _
        "='[18.2.SAHIN VERGIL?R- BUZOVNA - F2 - 2020.11.25.xlsx]TOTAL'!R9C5"
    Range("E41").Select
    ActiveCell.FormulaR1C1 = _
        "='[19.1.VAHID - BALAXANI - F2 - 2021.02.05.xlsx]TOTAL'!R11C5"
    Range("E42").Select
    ActiveCell.FormulaR1C1 = _
        "='[19.2.VAHID - BUZOVNA - F2 - 2020.10.30.xlsx]TOTAL'!R10C5"
    Range("E43").Select
    ActiveCell.FormulaR1C1 = _
        "='[20.1.AKIF - BALAXANI - F2 - 2021.02.19.xlsx]TOTAL'!R17C5"
    Range("E44").Select
    ActiveCell.FormulaR1C1 = _
        "='[20.2.AKIF - AZPETROL - F2 - 2020.02.05.xlsx]TOTAL'!R5C5"
    Range("E45").Select
    ActiveCell.FormulaR1C1 = _
        "='[21.1.AS?F - BUZOVNA - F2 - 2020.12.25.xlsx]TOTAL'!R14C5"
    Range("E46").Select
    ActiveCell.FormulaR1C1 = _
        "='[21.2.AS?F - MASTAGA - F2 - 2020.12.25.xlsx]TOTAL'!R12C5"
    Range("E47").Select
    ActiveCell.FormulaR1C1 = _
        "='[22.KAMAL SO - RAMANI - F2 - 2021.02.26 +.xlsx]TOTAL'!R13C5"
    Range("E48").Select
    ActiveCell.FormulaR1C1 = _
        "='[23.1.ROVSEN S?BAIL - NIZAMI KÜÇ?SI - F2 - 2020.06.19.xlsx]TOTAL'!R14C5"
    Range("E49").Select
    ActiveCell.FormulaR1C1 = _
        "='[23.2.ROVSEN S?BAIL - 28 MAY - F2 - 2020.07.24.xlsx]TOTAL'!R8C5"
    Range("E50").Select
    ActiveCell.FormulaR1C1 = _
        "='[24.1.M?H?MM?D - S?H?R - DIG?R - F2 - 2020.12.25.xlsx]TOTAL'!R9C5"
    Range("E51").Select
    ActiveCell.FormulaR1C1 = _
        "='[24.2.M?H?MM?D - BALAXANI - F2 - 2021.02.05.xlsx]TOTAL'!R13C5"
    Range("E52").Select
    ActiveCell.FormulaR1C1 = _
        "='[25.V?LI SURAXANI - ?MIRCAN - F2 - 2021.02.19.xlsx]TOTAL'!R14C5"
    Range("E53").Select
    ActiveCell.FormulaR1C1 = _
        "='[26.1.EMIL - BALAXANI - F2 - 2021.01.22.xlsx]TOTAL'!R9C5"
    Range("E54").Select
    ActiveCell.FormulaR1C1 = _
        "='[26.2.EMIL- BUZOVNA - F2 - 2020.10.30.xlsx]TOTAL'!R7C5"
    Range("E55").Select
    ActiveCell.FormulaR1C1 = _
        "='[27.M?TL?B - ?MIRCAN - F2 - 2021.02.26 +.xlsx]TOTAL'!R15C5"
    Range("E56").Select
    ActiveCell.FormulaR1C1 = _
        "='[28.B?XTIYAR - ?MIRCAN - F2 - 2021.02.26 +.xlsx]TOTAL'!R11C5"
    Range("E57").Select
    ActiveCell.FormulaR1C1 = _
        "='[29.ELXAN YASAMAL - T?Z? PIR- F2 - 2021.02.19.xlsx]TOTAL'!R36C5"
    Range("E58").Select
    ActiveCell.FormulaR1C1 = _
        "='[30.VUQAR - SUM ARXASI - F2 - 2020.12.25.xlsx]TOTAL'!R6C5"
    Range("E60").Select
    ActiveCell.FormulaR1C1 = _
        "='[32.ZIYA - BALAXANI - F2 - 2021.02.19.xlsx]TOTAL'!R8C5"
    Range("E61").Select
    ActiveCell.FormulaR1C1 = _
        "='[33.1.FUAD BAX - BALAXANI - F2 - 2020.12.25.xlsx]TOTAL'!R9C5"
    Range("E62").Select
    ActiveCell.FormulaR1C1 = _
        "='[33.2.FUAD BAX - DIG?R - F2 - 2021.02.19.xlsx]TOTAL'!R6C5"
    Range("E63").Select
    ActiveCell.FormulaR1C1 = _
        "='[34.ELS?N - M?RD?KAN - F2 - 2021.02.19.xlsx]TOTAL'!R9C5"
    Range("E64").Select
    ActiveCell.FormulaR1C1 = _
        "='[35.FIKR?T - RAMANA - F2 - 2021.02.26 +.xlsx]TOTAL'!R8C5"
    Range("E65").Select
    ActiveCell.FormulaR1C1 = _
        "='[36.EMIN - NOVXANI - F2 - 2021.02.26 +.xlsx]TOTAL'!R11C5"
    Range("E66").Select
    ActiveCell.FormulaR1C1 = _
        "='[37.1.ELÇIN ( RAHIM m ) - MASTAGA - F2 - 2021.02.19.xlsx]TOTAL'!R8C5"
    Range("E67").Select
    ActiveCell.FormulaR1C1 = _
        "='[37.2.ELÇIN ( RAHIM m ) - QOBU - F2 - 2020.02.26 +.xlsx]TOTAL'!R7C5"
    Range("E68").Select
    ActiveCell.FormulaR1C1 = _
        "='[38.1.FUAD - MASTAGA - F2 - 2021.02.05.xlsx]TOTAL'!R7C5"
    Range("E69").Select
    ActiveCell.FormulaR1C1 = _
        "='[38.2.QAFQAZ - MASTAGA - F2 - 2020.12.04.xlsx]TOTAL'!R12C5"
    Range("E70").Select
    ActiveCell.FormulaR1C1 = _
        "='[39.HÜSEYN - NOVXANI - F2 - 2020.12.04.xlsx]TOTAL'!R7C5"
    Range("E71").Select
    ActiveCell.FormulaR1C1 = _
        "='[40.ÜZEYIR - RAMANI - F2 - 2021.02.19.xlsx]TOTAL'!R7C5"
    Range("E72").Select
    ActiveCell.FormulaR1C1 = _
        "='[41.BEHBUD - RAMANA - F2 - 2021.02.19.xlsx]TOTAL'!R6C5"
    Range("E73").Select
    ActiveCell.FormulaR1C1 = _
        "='[42.F?RMAN - ?MIRCAN - F2 - 2020.11.20.xlsx]TOTAL'!R7C5"
    Range("E74").Select
    ActiveCell.FormulaR1C1 = _
        "='[43.VÜQAR BAX - BALAXANI - ZAVOD - F2 - 2020.02.19.xlsx]TOTAL'!R6C5"
    Range("E75").Select
    ActiveCell.FormulaR1C1 = _
        "='[44.MAHIR - BALAXANI - F2 - 2021.01.29.xlsx]TOTAL'!R6C5"
    Range("E79").Select
    ActiveCell.FormulaR1C1 = _
        "='[45.1.Az?rAvtoYol 2 - SOCAR - BALAXANI - F2 - 2021.02.19.xlsx]TOTAL'!R7C5"
    Range("E80").Select
    ActiveCell.FormulaR1C1 = _
        "='[45.2.Az?rAvtoYol 2 - SOCAR - ASFALT - F2 - 2021.02.12.xlsx]TOTAL'!R7C5"
    Range("E81").Select
    ActiveCell.FormulaR1C1 = _
        "='[46.1.AZ?RSU - RAFIQ - F2 - 2020.02.05.xlsx]TOTAL'!R8C2"
    Range("E82").Select
    ActiveCell.FormulaR1C1 = _
        "='[46.1.AZ?RSU - RAFIQ - F2 - 2020.02.05.xlsx]TOTAL'!R25C2"
    Range("E83").Select
    ActiveCell.FormulaR1C1 = _
        "='[46.1.AZ?RSU - RAFIQ - F2 - 2020.02.05.xlsx]TOTAL'!R32C2"
    Range("E84").Select
    ActiveCell.FormulaR1C1 = _
        "='[46.1.AZ?RSU - RAFIQ - F2 - 2020.02.05.xlsx]TOTAL'!R40C2"
    Range("E85").Select
    ActiveCell.FormulaR1C1 = _
        "='[46.2.AZ?RSU - RAFIQ - RABIT? - F2 - 2021.02.05.xlsx]TOTAL'!R8C2"
    Range("E86").Select
    ActiveCell.FormulaR1C1 = _
        "='[47.AZ?RSU - ELS?N - ?MIRCAN - F2 - 2021.02.26.xlsx]TOTAL'!R26C2"
    Range("E87").Select
    ActiveCell.FormulaR1C1 = "='[48.BAKELEKTRO - F2 - 2021.02.05.xlsx]TOTAL'!R3C2"
    Range("E88").Select
    ActiveCell.FormulaR1C1 = _
        "='[48.BAKELEKTRO - F2 - 2021.02.05.xlsx]TOTAL'!R4C2+'[48.BAKELEKTRO - F2 - 2021.02.05.xlsx]TOTAL'!R7C2"
    Range("E89").Select
    ActiveCell.FormulaR1C1 = "='[48.BAKELEKTRO - F2 - 2021.02.05.xlsx]TOTAL'!R5C2"
    Range("E90").Select
    ActiveCell.FormulaR1C1 = "='[48.BAKELEKTRO - F2 - 2021.02.05.xlsx]TOTAL'!R6C2"
    Range("E91").Select
    ActiveCell.FormulaR1C1 = "='[50.BTRIB - F2 - 2020.07.10.xlsx]TOTAL'!R6C2"
    Range("E92").Select
    ActiveCell.FormulaR1C1 = "='[49.AZ?RIQAZ - F2 - 2020.10.30.xlsx]TOTAL'!R15C5"
    Range("E93").Select
    ActiveCell.FormulaR1C1 = "='[51.AZ?RISIQ - F2 - 2020.11.06.xlsx]TOTAL'!R6C2"
    Range("E94").Select
End Sub

Şöyle bir makro kodu kayıt etdim, şimdi kullan dediğimde ССылка yazıyor, bunun anlamı nedir? nerde hata yaptım?

Korhan Ayhan · 2 Mart 2021

Paylaştığınız kodları lütfen mesaj penceresinde ki 3 nokta (...) menüsüne tıklarak kod tagı içine alınız. Hem okuması kolay olur hem de daha düzenli olur.

Ayrıca paylaştığınız hata mesajı hangi dilde?

nunu446 · 2 Mart 2021

Korhan Ayhan' Alıntı:
Paylaştığınız kodları lütfen mesaj penceresinde ki 3 nokta (...) menüsüne tıklarak kod tagı içine alınız. Hem okuması kolay olur hem de daha düzenli olur.

Ayrıca paylaştığınız hata mesajı hangi dilde?

Ayrıca paylaştığınız hata mesajı hangi dilde - Rus

Korhan Ayhan · 2 Mart 2021

Ama ben Rusça bilmiyorum.

Otomatik fiyat çekme

nunu446

nunu446

Korhan Ayhan

Administrator

nunu446

Korhan Ayhan

Administrator

nunu446

nunu446

Korhan Ayhan

Administrator

nunu446

Korhan Ayhan

Administrator