• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listboxtan Texboxlara veri ve forma resim çağırma

  • Konbuyu başlatan Konbuyu başlatan Galus
  • Başlangıç tarihi Başlangıç tarihi
G

Galus

Katılım
8 Eylül 2005
Mesajlar
476
Excel Vers. ve Dili
Excel 2003 - Türkçe
Ekteki Excel dosyasınıda userformda listboxa alınan verileri tıklandığında texboxlara getirilip ilgili filmin resmini userforma eklemek münkün mü?

Saygılar...
 

Ekli dosyalar

Dosyanız ekte.
Filmin gerçek adı sütunundaki adlarla klasöredki resimlerin adları bire bir ayni olması lazım.Ayni değildi değiştirdim.Arasında bir boşluk koymuşunuz.
:cool:
Kod: 
Private Sub ListBox1_Click()
Dim i As Byte, yol As String
If ListBox1.ListCount = 0 Then Exit Sub
For i = 1 To 8
    Me.Controls("TextBox" & i).Value = ListBox1.Column(i - 1)
Next i
yol = ThisWorkbook.Path
dosya = ListBox1.Column(2) & ".jpg"
On Error Resume Next
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture(yol & "\" & dosya)
End Sub
 

Ekli dosyalar

dosya ekte ,
not:resim isimleri ile filmin orjinal adları aynı olmalı aradaki boşluklar dahil

geç kalmışım Evren beyin mesajını görmemişim altenatif olsun.
 

Ekli dosyalar

  • film.rar
    film.rar
    103.1 KB · Görüntüleme: 136
Değerli arkadaşlar hepinize teşekkürler
Yardım etmek için birbirlerinizle yarışıyormuşsunuz gibi hissetim
 
Sn. Evren Gizlen ve Sn. fedeal ,

İlgi ve bilgilerinize minnettarım . Allah (CC) emeklerinden razı olsun, ecrinizi arttırsın .

Saygılarımla...
 
Galus' Alıntı:
Sn. Evren Gizlen ve Sn. fedeal ,

İlgi ve bilgilerinize minnettarım . Allah (CC) emeklerinden razı olsun, ecrinizi arttırsın .

Saygılarımla...
Genişletmek için tıkla ...
Rica ederim.
İyi çalışmalr.:cool:
 
Hocam ,

Filimleri hangi DVD de, hangi filim var diye Excel sayfasından takip ediyorum. Desteğinizle artık işim daha kolay. serdarinho43 arkadaşın dediği gibi bul butonu veya git dediğimde filim adını yazınca listbox o filimi göstersin, eklememiz münkün mü?

Saygılar..
 
alternatif kod 10 adet değişik uzantıların resmini getirir

Kod: 
Private Sub ListBox1_Click()
If ListBox1.ListCount = 0 Then Exit Sub
For j = 1 To 8
Me.Controls("TextBox" & j).Value = ListBox1.Column(j - 1)
Next j
UserForm1.Image1.Picture = LoadPicture(None)
For i = 1 To 10
resimyükle = ThisWorkbook.Path & "\" & ListBox1.Column(2) & "." & resimuzantısı(Val(i))
On Error Resume Next
UserForm1.Image1.Picture = LoadPicture(resimyükle)
Next i
If UserForm1.Image1.Picture = LoadPicture(None) Then
UserForm1.Image1.Visible = False
Else
UserForm1.Image1.Visible = True
End If
End Sub
Function resimuzantısı(Sayi#)
Dim yazi As String
Dim b As Integer
ReDim birler$(5000), onlar$(1), basamak$(5)
  
birler$(1) = "bmp":        birler$(2) = "jpg"
birler$(3) = "gif":        birler$(4) = "pcx"
birler$(5) = "tga":        birler$(6) = "xls"
birler$(7) = "abm":        birler$(7) = "avi"
birler$(8) = "exe":        birler$(9) = "doc"
GoSub cevir
resimuzantısı = birler$(Sayi) 'cevap
If Sayi = 0 Then
resimuzantısı = "jpg"
End If
Exit Function
cevir:
cevap = birler$(Sayi)
Return
End Function
 
Galus' Alıntı:
Hocam ,

Filimleri hangi DVD de, hangi filim var diye Excel sayfasından takip ediyorum. Desteğinizle artık işim daha kolay. serdarinho43 arkadaşın dediği gibi bul butonu veya git dediğimde filim adını yazınca listbox o filimi göstersin, eklememiz münkün mü?

Saygılar..
Genişletmek için tıkla ...
Dosyanız ekte.:cool:
Kod: 
Function liste(deg As String)
Dim k As Range, myarr(), a As Long, j As Byte, adr As String
ReDim myarr(1 To 8, 1 To 1)
With Sheets("YABANCI")
    Set k = .Range("C2:C" & .Cells(65536, "C").End(xlUp).Row).Find("*" & deg & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 8, 1 To a)
            For j = 1 To 8
                myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = .Range("C2:C" & .Cells(65536, "C").End(xlUp).Row).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
End With
liste = myarr
End Function
 

Ekli dosyalar

Üstadım , saygı ve hürmetlerimle ...

Teşekkürler ...
 
Peki daha fazla resim eklemek için userformu kullanamazmıyız. Excelin olduğu dosyayı açmadan direk resim yükleyemezmiyiz ?
 
Userforma resim eklem

Sanırım dosyayı eklersem daha ii açıklayabilirim bul butonuna bastığımda ilgili resimin image e gelmesini istiyorum aynı istem listboxta ilgili kişiyi seçtiğimdede gerçeklerşsin

Resim yükle butonunu ekledim burdaki amacım yeni bir kişi eklediğimde dosyayı açmadan direk bu butonla sistem dosyasına kişinin resmini eklemek istiyorum bunu yapabilir miyim?

hepinize şimdiden teşekkürler
 

Ekli dosyalar

serdarinho43' Alıntı:
Sanırım dosyayı eklersem daha ii açıklayabilirim bul butonuna bastığımda ilgili resimin image e gelmesini istiyorum aynı istem listboxta ilgili kişiyi seçtiğimdede gerçeklerşsin

Resim yükle butonunu ekledim burdaki amacım yeni bir kişi eklediğimde dosyayı açmadan direk bu butonla sistem dosyasına kişinin resmini eklemek istiyorum bunu yapabilir miyim?

hepinize şimdiden teşekkürler
Genişletmek için tıkla ...

Aynı dosyayla ilgili açılmış öteki konuda işinize yarayacak bir çalışma mevcut
11.mesajda

http://www.excel.web.tr/showthread.php?t=74285&page=2
 
O örnek dosyaya bir kere buldugunuz resmi kaydediyor listbox olması önemli degil filmin orjinal ismini ilgili kutuya yazıp deneyin.
 
Dosyanıza ekleyin,

Kod: 
Private Sub ComboBox1_Change()
On Error Resume Next
        Set ARA = Sheets("1").Range("a:a").Find(ComboBox1)
If Not ARA Is Nothing Then
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture(Sheets("1").Cells(ARA.Row, "bc").Value)
End If
End Sub

Kod: 
Private Sub CommandButton14_Click()
ChDir ("C:\")
dosya = Application.GetOpenFilename(FileFilter:="," & _
        "*.jpg", _
        Title:="Lütfen resim seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
    If dosya = False Then ' eğer vazgeçe basarsanız
        'MsgBox "Dosya seçme işleminden vazgeçildi", , "KodGenTRKN"
        Exit Sub
    Else
        Image1.Picture = LoadPicture("")
        Set ARA = Sheets("1").Range("a:a").Find(ComboBox1)
If Not ARA Is Nothing Then
        Sheets("1").Cells(ARA.Row, "bc").Value = yol & dosya & uzanti
        Image1.Picture = LoadPicture(yol & dosya & uzanti)
    End If
    End If
End Sub

1 sayfasının bc sütununu resim yollarını kayıt için kullanacak. bir kere seçtinizmi artık comboboxtan isim seçtikçe resim gelecek.deneyin olmazsa dosya eklerim.
 
çok teşekkür ederim çok güzel olmuş ama tam olarak istediğim bu değil resim yükleye bastığımda seçtiğim resimin bir kopyasını "C:\Programfiles\Sistem\Resim" klasörüne yollamasını istiyorum.

bunu yapmaktaki amacım;
1- resimleri ortak bir klasörde toplamak
2- resmi yüklediğim yerde silinme ihtimaline karşı önlem almak
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst