• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü reçete

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
D

dundar90

Yeni Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
16 Mar 2022
Mesajlar
6
Aldığı beğeni
0
Excel V
Office 2010 TR
Konuyu Başlatan
Selamlar ;

152 sayfasında ürün reçeteleri var.. Sayfa 1 e ürün kodu yazdığımda 152 den reçeteleri getirsin diye bir vba yazdım

ama bi yerde hata yapıyorum bulamadım.

yardımcı olur musunuz?

C++:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Tarihe göre sırala Oylara göre sırala
örnek kod yazdım 152. sayfanın sayfa adını yazın
CSS:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Sayın dundar90 ; dosyanızı yüklerseniz yardımcı olabiliriz.
 
Olumlu oy 0 Negatif oyla
Adnan' Alıntı:
dim rg as range set rg =sayfa152..range("A1").currentregion dim dizi as variant dizi=rg for i=1 to ubound(dizi) if sayfa1.cell(3,2)=dizi(i,1) then sayfa1.cells(5,1)=dizi(i,1) exit sub end if next i
Genişletmek için tıkla...
denedim malsef sonuç alamadım
 
Olumlu oy 0 Negatif oyla
dundar90' Alıntı:
Selamlar ;

152 sayfasında ürün reçeteleri var.. Sayfa 1 e ürün kodu yazdığımda 152 den reçeteleri getirsin diye bir vba yazdım

ama bi yerde hata yapıyorum bulamadım.

yardımcı olur musunuz?

C++:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...

dosyayı ekledim
 

Ekli dosyalar

  • recetelistes.xlsm
    36 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
örneğiniz ekte
 

Ekli dosyalar

  • recetelistes.xlsm
    36.6 KB · Gösterim: 9
Olumlu oy 1 Negatif oyla
Çözüm
kodu aşağıdaki ile değiştirin
If Trim(Sayfa6.Cells(3, 2)) = Trim(dizi(i, 1)) Then
 
Olumlu oy 0 Negatif oyla
dizi(i, 2yi 1 yaptık)
 
Olumlu oy 0 Negatif oyla
çalışmıyormu
 
Olumlu oy 0 Negatif oyla
ofis ingilizcemi
 
Olumlu oy 0 Negatif oyla
1647426153966.png
 
Olumlu oy 0 Negatif oyla
Sorun çözüldü. teşekkür ederim..

Mantığı anlamak için sordum.. bendekii sayfa ismi s152 ama siz sayfa6 olarak kullanmışsınız
 
Olumlu oy 0 Negatif oyla
bir sayfanın ismi vardır bir de sayfanın kod adı vardır. ben kod adını kullandım. sizde sayfa 6 var
 
Olumlu oy 0 Negatif oyla
1647426460235.png
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst