İmage1_Click alternatifi komut yöntem tavsiyesi.

Resim nesnesi

İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#1)  hskaban » 05 Eyl 2019 16:27

Değerli Ustalar ve arkadaşlar,

28.08.2019 tarihli, viewtopic.php?f=4&t=33847 topik soruma cevap, yardım alamadım.
Yenileyerek, tekrar sizlerden destek talep ediyorum.

Rootzilla arkadaşın "Şablon ile sayfa ve köprü" çalışması ile Sayın Murat Osma beyin"Sayfa da ürün resmi" kodlarını birleştirerek bir stok takip çalışması yapmaktayım.

Aşağıda belirttiğim sorunları aşamadım ve sizlerden yardım talep ediyorum.

1- "B" kolonuna işlenen ürün kodu hücreye "DoubleClick" komutu ile şablon sayfası kopyalanarak,
yeni stok sayfası yaratmakta ve bu stok sayfası karşınıza gelmekte,
Sorun yok. Ancak resim çağırma işin içine girince aynı hücre içinde "İmage1_Click" ile "DoubleClick" birlikte
sağlıklı çalışmamakta.

* İmage1_Click" yerine B hücresine yazılan stok kodu "üzerine gelen Cursor" ile "Msgbox" gibi otomatik açılan
(Tıklama dışı) bir yöntem ile, resimleri görebilir miyiz?

2- Yine, yeni yaratılan veya kayıt esnasında açılan stok sayfasında da, Sayfa karşımıza geldiğinde işlem sonuna
kadar ürün resminin stok sayfasında görüntülenmesini arzu ediyorum. Stok işlemlerini yaparken stok resminin
görülmesinin yanlış kayıt vb. hata oranını azaltacağını düşünmekteyim.

Yöntem ve kod desteğinizi rica ederim.
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#2)  erseldemirel2 » 05 Eyl 2019 16:39

1. Sorunuz için aşağıdaki kod işe yararmı?

Kod: Tümünü seç
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

‘Kodlar

End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#3)  hskaban » 05 Eyl 2019 16:42

Excel dosyasını ilave ediyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#4)  hskaban » 05 Eyl 2019 16:46

Ersel bey,

"MouseMove" örneklerini uygulamaya çalıştım.
Belki hatalı - acemi olmamdan dolayı çalıştıramadım.

Dosyamı göndermeyi unutmuşum. ekledim.

İncelerseniz belki çözüm buluruz.

teşekkürler,
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#5)  şahin » 05 Eyl 2019 20:41

Ekte

STOK.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 692
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#6)  hskaban » 05 Eyl 2019 23:02

Şahin bey,

İlginize çok teşekkür ederim. Tam istediğim gibi olmuş.

Şimdi artık "B" kolonunda bulunan stok kodunun sehven tekrar kolona yazılmasını engelleme, hatta mümkün olursa, stok sayfası daha önce açılmış ise ilk doğru yazılmış satıra otomatik gidebilmesini sağlamak istiyorum.

Hatta bir adım ilerisi ise, stok kartına giriş çıkış işlemleri yapıldıkça, Stok sayfalarında (4.satır) Adet- Stok kalan envanter tutarını ana sayfada ilgili satıra otomatik olarak alabilmek.

Bir muhasebeci titizliğimi mazur görün, sadece kendim için değil, ideale yakın tüm arkadaşların arayışlarına cevap verebilmesini arzu ediyorum.

Saygılarımla,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#7)  şahin » 06 Eyl 2019 23:19

Ekte

STOK.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 692
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#8)  hskaban » 07 Eyl 2019 00:25

Şahin Bey,

Harika olmuş, nasıl teşekkür ederim bilemiyorum!
25.08.2019 tarihinden beri çözüm için girip çıktığım Vba-Excel sitelerinin haddi hesabı yok.
Neyse bu arada epey bilgi sahibi oldum ve oluyorum.

Bizleri fazla kolaycılığa alıştırmayın lütfen.... --)(

Sağlıkla kalın.
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#9)  hskaban » 08 Eyl 2019 16:38

Şahin bey ve arkadaşlar,,

Araştırdım. Ancak başaramadım.
Şöyle bir sorunum ve ileriye dönük tereddütüm var.

Resimler stok sayfaları açılınca, Otomatik sayfaya geliyor. ve kapansa dahi sayfada kaldığını düşünüyorum.
Çünkü, her yeni sayfa ilavesinde excel çalışma sayfa boyutu (yeni açılan +sheets'ın getirdiği büyüme 4 kb + jpg boyutu 50-100 kb)
büyümekte, 100 sayfa ilavesinde 1-2 mb.a ulaştı. 1000-2000 sayfa+jpg ile çok hantal olabileceğini düşünmekteyim.

İlgili stok sayfası açıkken, resim görselin sayfada görülmesini, sayfa kapalı iken resmin kapanmasını sağlayabilir miyiz?
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#10)  ahmetilhan282 » 08 Eyl 2019 20:29

ThisWorkBook modülü kodları:
Kod: Tümünü seç
Dim sayfa As String

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    sayfa = Sh.Name
    resimGoster sayfa
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    resimSil Sh.Name

    sat = Sayfa1.Range("B2:B65000").Find(What:=sayfa, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Row

    If sat <> "" Then
        'satışlar
        Sayfa1.Range("G" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("E4:E18"))
        Sayfa1.Range("H" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("F4:F18"))
        Sayfa1.Range("I" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("G4:G18"))
        'alışlar
        Sayfa1.Range("J" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("H4:H18"))
        Sayfa1.Range("K" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("I4:I18"))
        Sayfa1.Range("L" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("J4:J18"))
        'kalan
        Sayfa1.Range("M" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("K4:K18"))
        Sayfa1.Range("N" & sat) = WorksheetFunction.Sum(Sheets(sayfa).Range("L4:L18"))
    End If
End Sub


Module1 kodları:
Kod: Tümünü seç
Sub resimGoster(sayfa As String)
    Dim resim As Shape, left As Integer, top As Integer, hgt As Integer, wdt As Integer
    With ThisWorkbook.Sheets(sayfa)
        left = .Range("M5").left
        top = .Range("M5").top
        hgt = 190
        wdt = 160
        On Error Resume Next
        Set resim = .Shapes.AddPicture(ThisWorkbook.path & "\URUN\" & sayfa & ".jpg", msoCTrue, msoFalse, left, top, hgt, wdt)
        On Error GoTo 0
        If resim Is Nothing Then Set resim = .Shapes.AddPicture(ThisWorkbook.path & "\URUN\yok.jpg", msoCTrue, msoFalse, left, top, hgt, wdt)
        resim.Name = "stokResim"
    End With
    Set resim = Nothing
End Sub
Sub m1()
    MsgBox WorksheetFunction.Sum(Sheets("10").Range("E4:E18"))
End Sub
Sub resimSil(sayfa As String)
    On Error Resume Next
    ThisWorkbook.Sheets(sayfa).Shapes("stokResim").Delete
End Sub
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 847
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#11)  hskaban » 09 Eyl 2019 18:13

Sayın, Ahmet İlhan bey,

Verdiğiniz kodları ilgili yerlerine uyguladım. Ancak debug hata yaratmakta,
Şöyle ki; eski kod durumunda, B kolonuna yazılan stok kodunun üzerine, double_click komutuyla şablon sayfası örneği, tıklanan stok kodu adı-no.su ile yeni bir stok sayfası yaratarak işlem yapılmak üzere bu sayfa açılıyordu.
(Sayfa1. anasayfa kodlarına göre).

Verdiğiniz kodların uygulanması sonucu, tek tıklama ile Şablon2, şablon3 yaratılmakta, devam etmesi gerekli diğer işlemler, açılan stok sayfa ismini tanımadığından dolayı devam etmemektedir.

Düzeltme konusunda yardımınızı rica ediyorum.
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#12)  şahin » 09 Eyl 2019 18:47

Ekte

STOK.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 692
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#13)  hskaban » 10 Eyl 2019 00:06

Şahin Bey,

İlginize teşekkür ederim. Sizin göndermiş olduğunuz dosyada 1-2 kodla ilave işlemi yaptım.
Karşıma şu çıktı.

yeni kodla açılan yeni stok sayfasında kenar ürün görseli ile birlikte 2. kez sayfayı kaplayan büyüklükte aynı ürün görseli gelmekte. (Zipli dosyada görebileceğiniz 15-13 kodlu stok sayfasında)
Ayrıca + açılan yeni stok sayfası ilk açılışında ürün yok ve ürün görseli üst üste basılmış durumda görünmekte.

Şahin bey,
Workbook sayfasına ilave edilen ürün resmi kodları ve silme kodları ile Modüle 1 kodlarındaki benzerleri ile çakışma mı yaratmaktadır?

Saygılarımla,
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#14)  şahin » 10 Eyl 2019 10:03

Düzelttim

STOK.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 692
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: İmage1_Click alternatifi komut yöntem tavsiyesi.

İleti#15)  hskaban » 10 Eyl 2019 15:20

Şahin bey,

Sorunlar çözülmüş durumda, stabil çalışıyor.

Başta sizin değerli yardım ve çözüm emeklerinize olmak üzere, Sayın Ersel, Ahmet İlhan beylere çok teşekkür ederim.

İyi ki varsınız.
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir / Ayvalık


Forum İmage

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe