Auteur Topic: andere cel (gelezen 3983 keer)

Sunnybat · « **Gepost op:** 16 februari 2024, 18:06:21 »

Hoi,
ik heb deze code reeds gehad van Molly ( thnx )
maar ik had 1 klein vraagje

als er in range 7 ( kolom G ) tekst staat opent hij de JPG met deze tekst B.V foto dan vindt hij in de directory d:/covers/
foto.jpg en geeft deze weer
nu is de vraag als er in range 7 ( kolom G ) een streep staat - dat hij de tekst pakt die in range 8 ( kolom H ) staat

Code: [Selecteer]

.foto.Picture = LoadPicture("D:\Covers\" & t_range(7) & ".jpg")
                'jpg

en vergeten te vermelden,zodra er wel tekst voorkomt in range 7 ipv - dan moet range 8 overgeslagen worden

Alvast weer super bedankt

SoftAid · « **Reactie #1 Gepost op:** 17 februari 2024, 10:45:32 »

Hallo Sunnybat,

Dat zou moeten kunnen met een eenvoudig if-statement:

Code: [Selecteer]

If Cells(7, 7) = "-" then 
.foto.Picture = LoadPicture("D:\Covers\" & t_range(7) & ".jpg")
Else
.foto.Picture = LoadPicture("D:\Covers\" & t_range(8) & ".jpg")
EndIf

Zonder de rest van de code te zien kan ik natuurlijk niet bepalen hoe je variabelen benoemd zijn.

SoftAid

Sunnybat · « **Reactie #2 Gepost op:** 17 februari 2024, 12:31:19 »

@SoftAid

zoals ik nu test werkt het perfect $\o/$

alweer super bedankt

SoftAid · « **Reactie #3 Gepost op:** 18 februari 2024, 11:16:09 »

Hallo Sunnybat,

Bedankt voor de bevestiging

SoftAid

Sunnybat · « **Reactie #4 Gepost op:** 01 maart 2024, 11:55:24 »

Hoi,

ik had deze code reeds gehad maar helaas werkt het niet

Code: [Selecteer]

If Cells(7, 7) = "-" then
.foto.Picture = LoadPicture("D:\Covers\" & t_range(7) & ".jpg")
Else
.foto.Picture = LoadPicture("D:\Covers\" & t_range(8) & ".jpg")
EndIf

als er in range 7 een - ( streep staat ) dan pak hij de informatie van range 8 dat werkt
maar als er informatie staat in range 7 BV 01008CB0156BC800 dan moet hij range 8 overslaan maar
hij zoekt toch de informatie van range 8 01008CB0156BC00 en die tekst vindt hij niet

Alvast super bedankt

SoftAid · « **Reactie #5 Gepost op:** 01 maart 2024, 13:47:03 »

Hallo Sunnybat,

ik heb (hopelijk zoals jij dat wil) je reactie hierboven bij het topic geplaatst waar het om ging, zo hebben de helpers toch war meer informatie.

Je melding:

Citaat

als er in range 7 een - ( streep staat ) dan pak hij de informatie van range 8 dat werkt
maar als er informatie staat in range 7 BV 01008CB0156BC800 dan moet hij range 8 overslaan maar
hij zoekt toch de informatie van range 8 01008CB0156BC00 en die tekst vindt hij niet

krijg ik niet ontward.

Wat mag er staan (of wat mag er niet staan) in cel "G7" opdat hij de foto ("D:\Covers\" & t_range(7) & ".jpg") laadt?

SoftAid

Della Jordan · « **Reactie #6 Gepost op:** 01 maart 2024, 14:32:28 »

Misschien?

Code: [Selecteer]

If Cells(7, 7) <> "-" then

Sunnybat · « **Reactie #7 Gepost op:** 01 maart 2024, 14:35:53 »

@SoftAid

Klopt dit is de topic

als er in range 8 een streep staat dan laat hij de jpg die als tekst staat in range 7 staat zien ( raar ) dan slaat hij de range 8 over waar een streep staat
maar als in range 8 ook tekst staat dan moet hij ( als het mogelijk is

) deze niet zoeken en overslaan maar dan krijg ik een melding en zie de jpg niet
BV
range 7 0100C88016CF6000 en range 8 - ( laat die de jpg van 0100C88016CF6000 zien )
range 7 - en range 8 0100C88016CF6800 dan laat die de jpg van 0100C88016CF6800 zien
range 7 0100C88016CF68000 en range 8 0100C88016CF6000 dan krijg ik een melding en zie ik geen jpg

Alvast weer super bedankt

Sunnybat · « **Reactie #8 Gepost op:** 01 maart 2024, 14:39:55 »

@Della Jordan

helaas

Code: [Selecteer]

If Cells(7, 7) <> "-" Then
                 .foto.Picture = LoadPicture("D:\Covers\" & t_range(7) & ".jpg")
                 Else
                 .foto.Picture = LoadPicture("D:\Covers\" & t_range(8) & ".jpg")
                 End If

SoftAid · « **Reactie #9 Gepost op:** 01 maart 2024, 14:42:59 »

Sunnybat,

Je bent echt niet duidelijk in je commentaren en voorbeelden.

Begin met een voorbeeldbestandje te maken, en hang dat aan bij een antwoord, waarin je veel duidelijker dan nu uitlegt wat je wil bereiken, en wat te volgen is in je voorbeeldbestand.

Anders blijven we raden naar wat je wilt.

Akkoord?

SoftAid

Sunnybat · « **Reactie #10 Gepost op:** 01 maart 2024, 15:07:26 »

@SoftAid

als er in range 7 ( kolom G ) de tekst hallo staat dan vindt hij op D:\Covers de hallo.jpg en laat die zien en in range 8 ( kolom H ) staat een -

als er in range 7 ( kolom G ) een streep staat - en in range 8 ) kolom H ) hoi dan laat die hoi.jpg zien

MAAR zodra in range 7 ( kolom G ) hallo staat en in range 8 ( kolom H ) hoi dan geeft die een melding en zie ik geen jpg want hij vindt deze niet in range 8 ( Kolom H )

nu zou ik graag zodra in range 7 ( kolom G ) hallo voorkomt en in range 8 ( kolom H ) hoi, dat hij de jpg laat zien van range 7 ( kolom G ) hallo laat zien
en hoi over slaat

hoop dat ik het nu een beetje beter verwoord hebt?

SoftAid · « **Reactie #11 Gepost op:** 01 maart 2024, 15:23:23 »

Ik heb je uitleg proberen samen te vatten in begrijpbare (Excel) taal, maar dat maakt het niet gemakkelijker.

Citaat

Als er in cel "G7" de tekst "hallo" staat en in "H8" een "-" staat, dan vindt hij op D:\Covers\ de hallo.jpg en laat die zien.
Als er in "G7" een "-" staat en in "H8" staat "hoi" dan laat die hoi.jpg zien.
Maar zodra in "G7" "hallo" staat en in "H8" "hoi" dan geeft die een melding en zie ik geen jpg want hij vindt deze niet in "H8"
Nu zou ik willen dat als in "G7" "hallo" staat en in H8 "hoi", dat hij de jpg van "G7" ("hallo") laat zien en "hoi" over slaat.

Citaat

dan geeft die een melding

Welke melding?

Waarom kom je niet met een voorbeeldbestand?

PS: Zonder je volledige VBA code stopt het voor mij

SoftAid

Sunnybat · « **Reactie #12 Gepost op:** 01 maart 2024, 16:44:00 »

@SoftAid

even allles moeten deleten anders is die super groot

het gaat om kolom G en Kolom V

Della Jordan · « **Reactie #13 Gepost op:** 01 maart 2024, 17:39:38 »

@ Sunnybat,
Ik heb het bestand eens grondig bekeken, alles kan een heel stuk makkelijker.
Maar ik begrijp wat je wilt bereiken, nu ik erachter ben wat t_range betekend, maakt het al een stuk duidelijker. (Alles aanpassen neemt een paar dagen in beslag)Ik werk in ploegen.
Doe mij een plezier, vul eens 2 lijntjes in in je nu leeg voorbeeldbestand.
Dan hebben de helpers een overzicht, wat is tekst, cijfers enz.

Sunnybat · « **Reactie #14 Gepost op:** 01 maart 2024, 19:27:37 »

@Della Jordan

als je nu zoek klikt en vult in de bovenste textbox test in, dan komt er in de grote textbox de tekst wat je zoekt
klik op de tekst wat je zoek ( test ) dan zie je de melding wat ik bedoel

zorg wel dat je kolom G en V de directory op je HDD staat en kolom J een datum staat anders werkt het niet

BV c:\jpg\
dan de naam van je ingevulde naam in kolom G ( c:\jpg\test.jpg of wat je zelf invuld )

Help!

Menu

Hulp bij posten

Zoeken

Recente topics