Soru çaprazara mantığını VBA ya taşımak

tugbina · 17 Eyl 2025

Merhabalar;
Bende Office 365 var, ancak daha eksi sürümlerde de çalışması gereken bir durum var;

Önce dış verileri güncelleyeceğiz.

QrCode sayfasında 4. Satırdan itibaren son dolu hücreye kadar

A4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!M:M), burada H4 örnek, son dolu hücre dahil işleyecek

C4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!B:B) , burada H4 örnek, son dolu hücre dahil işleyecek

D4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!D:D) , burada H4 örnek, son dolu hücre dahil işleyecek

G4 ten son dolu hücreye dahil: =ÇAPRAZARA(E5&F5&Y5&AA5;'Standard-Birim-Alternatif Cihaz'!G:G&'Standard-Birim-Alternatif Cihaz'!H:H&'Standard-Birim-Alternatif Cihaz'!I:I&'Standard-Birim-Alternatif Cihaz'!J:J;'Standard-Birim-Alternatif Cihaz'!K:K;"KONTROL ET"), burada H4 örnek, son dolu hücre dahil işleyecek

J4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!G:G), burada H4 örnek, son dolu hücre dahil işleyecek

L4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!H:H), burada H4 örnek, son dolu hücre dahil işleyecek

O4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!L:L), burada H4 örnek, son dolu hücre dahil işleyecek

P4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!N:N), burada H4 örnek, son dolu hücre dahil işleyecek

R4 ten son dolu hücreye dahil: =ÇAPRAZARA(H4;VERİ!E:E;VERİ!K:K), burada H4 örnek, son dolu hücre dahil işleyecek

U4 ten son dolu hücreye dahil: =TARİH(YIL(R4)+1;AY(R4);GÜN(R4)), burada R4 örnek, son dolu hücre dahil işleyecek

V4 ten son dolu hücreye dahil: , =U5-BUGÜN(), burada U4 örnek, son dolu hücre dahil işleyecek

T4 ten son dolu hücreye dahil: , = =EĞER(V4>40;"SÜRE VAR-CALIB.OK";EĞER(VE(V4>=20;V4<=40);"EVRE1-STAGE1";EĞER(VE(V4>0;V4<20);"EVRE2-STAGE2";EĞER(V4<=0;"EVRE3-STAGE3";"")))), burada V4 örnek, son dolu hücre dahil işleyecek

AA4 ten son dolu hücreye dahil: , =ÇAPRAZARA(E4&F4&Y4&AA4;'Standard-Birim-Alternatif Cihaz'!G:G&'Standard-Birim-Alternatif Cihaz'!H:H&'Standard-Birim-Alternatif Cihaz'!I:I&'Standard-Birim-Alternatif Cihaz'!J:J;'Standard-Birim-Alternatif Cihaz'!L:L;"KONTROL ET"), burada E4&F4&Y4&AA4 örnek, son dolu hücre dahil işleyecek
Sonra pivot tablolar güncellenecek.
QrCode sayfasında çaprazara formülü olmayan elle giriş yaptığım dolu hücreler var, onlar sabit kalacak
Destek olur musunuz lütfen?

arzuhalci · 17 Eyl 2025

A4: =İNDİS(VERİ!M:M; KAÇINCI(H4;VERİ!E:E;0))
C4: =İNDİS(VERİ!B:B; KAÇINCI(H4;VERİ!E:E;0))
D4: =İNDİS(VERİ!D:D; KAÇINCI(H4;VERİ!E:E;0))
G4: Bu formül biraz daha karmaşık bir arama içeriyor.

=İNDİS('Standard-Birim-Alternatif Cihaz'!K:K; KAÇINCI(E4&F4&Y4&AA4;'Standard-Birim-Alternatif Cihaz'!G:G&'Standard-Birim-Alternatif Cihaz'!H:H&'Standard-Birim-Alternatif Cihaz'!I:I&'Standard-Birim-Alternatif Cihaz'!J:J;0))

J4: =İNDİS(VERİ!G:G; KAÇINCI(H4;VERİ!E:E;0))
L4: =İNDİS(VERİ!H:H; KAÇINCI(H4;VERİ!E:E;0))
O4: =İNDİS(VERİ!L:L; KAÇINCI(H4;VERİ!E:E;0))
P4: =İNDİS(VERİ!N:N; KAÇINCI(H4;VERİ!E:E;0))
R4: =İNDİS(VERİ!K:K; KAÇINCI(H4;VERİ!E:E;0))
AA4: Bu da karmaşık bir arama içeriyor

=İNDİS('Standard-Birim-Alternatif Cihaz'!L:L; KAÇINCI(E4&F4&Y4&AA4;'Standard-Birim-Alternatif Cihaz'!G:G&'Standard-Birim-Alternatif Cihaz'!H:H&'Standard-Birim-Alternatif Cihaz'!I:I&'Standard-Birim-Alternatif Cihaz'!J:J;0))

Bu formülü girdikten sonra yine Ctrl + Shift + Enter tuşlarına basarak dizi formülü olarak onaylamanız gerekir.

Bu formüllerde değişiklik yapmanıza gerek yok, çünkü bunlar eski Excel sürümlerinde de sorunsuz çalışır:

U4: =TARİH(YIL(R4)+1;AY(R4);GÜN(R4))
V4: =U4-BUGÜN()
T4:

=EĞER(V4&gt;40;"SÜRE VAR-CALIB.OK";EĞER(VE(V4&gt;=20;V4&lt;=40);"EVRE1-STAGE1";EĞER(VE(V4&gt;0;V4&lt;20);"EVRE2-STAGE2";EĞER(V4&lt;=0;"EVRE3-STAGE3";""))))

Deneyin bakalım sonuç ne olacak

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Soru çaprazara mantığını VBA ya taşımak

tugbina

arzuhalci

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol