Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 17-03-2017, 11:44   #1
Rizelli3
Altın Üye
 
Rizelli3 kullanıcısının avatarı
 
Giriş: 01/03/2017
Şehir: İstanbul
Mesaj: 45
Excel Vers. ve Dili:
Microsoft Office 2015 Türkçe
Varsayılan Gözat Seçeneği

Merhabalar,

Adreste bulunan örnek dosyama User Form ekledim kişi ekle butonuna bastığımda kişileri tabloya işliyor. Ancak tablonun sağ tarafındaki kısıma User Form'da bulunan göz at seçeneğine tıklayıp kişinin resmini de eklemek istiyorum. Bu konuda yardımcı olur iseniz çok sevinirim. Şimdiden teşekkür ederim. Herkese iyi çalışmalar dilerim.

http://s9.dosya.tc/server2/lml86c/Ornek_Dosya.rar.html
__________________
-Fenerbahçe
Rizelli3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 12:21   #2
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,074
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Aşağıdaki kodları deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton2_Click()
Dim fn
    fn = Application.GetOpenFilename(FileFilter:="Resim (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
    Title:="Resim Seç")
    If fn = False Then
MsgBox "Resim seçin"
   Else
 Image1.Picture = LoadPicture(fn)
 End If
End Sub
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 12:37   #3
Rizelli3
Altın Üye
 
Rizelli3 kullanıcısının avatarı
 
Giriş: 01/03/2017
Şehir: İstanbul
Mesaj: 45
Excel Vers. ve Dili:
Microsoft Office 2015 Türkçe
Varsayılan

PLİNT hocam yardımınız için teşekkür ederim. Kodu kullandım resmi User Form'da bulunan kısıma atıyor ancak dosyadaki 'G' sütununda bulunan kısıma aktarmıyor.
__________________
-Fenerbahçe
Rizelli3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 14:41   #4
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,074
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
Rizelli3 tarafından gönderildi Mesajı Görüntüle
PLİNT hocam yardımınız için teşekkür ederim. Kodu kullandım resmi User Form'da bulunan kısıma atıyor ancak dosyadaki 'G' sütununda bulunan kısıma aktarmıyor.
Merhaba
Ek dosyayı deneyin.
"Resim ekle" ile resmi seçip "Kaydet" ile sayfaya ekleyecektir.

http://s9.dosya.tc/server2/u1r7wc/Ornek_Dosya.zip.html

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton2_Click()
Sheets("Kişi Listesi").Activate
   fn = Application.GetOpenFilename(FileFilter:="Resim (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
    Title:="Resim Seç")
    If fn = False Then
MsgBox "Resim seçin"
    Else
 Image1.Picture = LoadPicture(fn)
 Image1.PictureSizeMode = 1
End If
End Sub 
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Sheets("Kişi Listesi").Activate
Dim Iinsuiv As Integer
If TextBox1 = "" Then MsgBox "İSİM BOŞ BIRAKILAMAZ": Exit Sub
Iinsuiv = [A33358].End(xlUp).Row + 1
Cells(Iinsuiv, 1) = TextBox1.Text
Cells(Iinsuiv, 2) = TextBox2.Text
Cells(Iinsuiv, 3) = ComboBox2.Text
Cells(Iinsuiv, 4) = TextBox4.Text
Cells(Iinsuiv, 5) = TextBox5.Text
Cells(Iinsuiv, 6) = ComboBox1.Text
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox2.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
Set nesne = ActiveSheet.OLEObjects.Add(classtype:="Forms.Image.1", Width:=78, Height:=41.25)
nesne.Top = Cells(Iinsuiv, "G").Top: nesne.Left = Cells(Iinsuiv, "G").Left
nesne.Height = Cells(Iinsuiv, "G").Height: nesne.Width = Cells(Iinsuiv, "G").Width
ActiveSheet.OLEObjects(nesne.Name).Object.PictureSizeMode = 1
ActiveSheet.OLEObjects(nesne.Name).Object.Picture = Me.Image1.Picture
End Sub 

Bu mesaj en son " 17-03-2017 " tarihinde saat 15:41 itibariyle PLİNT tarafından düzenlenmiştir....
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 14:43   #5
Rizelli3
Altın Üye
 
Rizelli3 kullanıcısının avatarı
 
Giriş: 01/03/2017
Şehir: İstanbul
Mesaj: 45
Excel Vers. ve Dili:
Microsoft Office 2015 Türkçe
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
Merhaba
Ek dosyayı deneyin.
"Resim ekle" ile resmi seçip "Kaydet" ile sayfaya ekleyecektir.

http://s9.dosya.tc/server2/u1r7wc/Ornek_Dosya.zip.html

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton2_Click()
Sheets("Kişi Listesi").Activate
   fn = Application.GetOpenFilename(FileFilter:="Resim (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
    Title:="Resim Seç")
    If fn = False Then
MsgBox "Resim seçin"
    Else
 Image1.Picture = LoadPicture(fn)
End If
End Sub 
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Sheets("Kişi Listesi").Activate
Dim Iinsuiv As Integer
If TextBox1 = "" Then MsgBox "İSİM BOŞ BIRAKILAMAZ": Exit Sub
Iinsuiv = [A33358].End(xlUp).Row + 1
Cells(Iinsuiv, 1) = TextBox1.Text
Cells(Iinsuiv, 2) = TextBox2.Text
Cells(Iinsuiv, 3) = ComboBox2.Text
Cells(Iinsuiv, 4) = TextBox4.Text
Cells(Iinsuiv, 5) = TextBox5.Text
Cells(Iinsuiv, 6) = ComboBox1.Text
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox2.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
Set nesne = ActiveSheet.OLEObjects.Add(classtype:="Forms.Image.1", Width:=78, Height:=41.25)
nesne.Top = Cells(Iinsuiv, "G").Top: nesne.Left = Cells(Iinsuiv, "G").Left
nesne.Height = Cells(Iinsuiv, "G").Height: nesne.Width = Cells(Iinsuiv, "G").Width
ActiveSheet.OLEObjects(nesne.Name).Object.Picture = Me.Image1.Picture
End Sub 
Hocam elinize kolunuza sağlık Allah razı olsun çok teşekkür ederim.
__________________
-Fenerbahçe
Rizelli3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 14:46   #6
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,074
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
Rizelli3 tarafından gönderildi Mesajı Görüntüle
Hocam elinize kolunuza sağlık Allah razı olsun çok teşekkür ederim.
Rica ederim, Allah sizdende razı olsun, kolay gelsin
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 14:59   #7
Rizelli3
Altın Üye
 
Rizelli3 kullanıcısının avatarı
 
Giriş: 01/03/2017
Şehir: İstanbul
Mesaj: 45
Excel Vers. ve Dili:
Microsoft Office 2015 Türkçe
Varsayılan

PLİNT hocam çok özür dileyerek bir şey demek istiyorum resmi eklediğimde resmi o kutucuğa sığdırmıyor bi köşesini atıyor resmin resmi kutuya sığdırmamız mümkün müdür.

şimdiden çok teşekkür ederim çok makbule geçti yardımınız.
__________________
-Fenerbahçe
Rizelli3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 15:42   #8
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,074
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Yukarıdaki (4 no lu mesajda) kodlarda bulunan kırmızı bölümleri ekleyip deneyiniz.
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 21:38   #9
Rizelli3
Altın Üye
 
Rizelli3 kullanıcısının avatarı
 
Giriş: 01/03/2017
Şehir: İstanbul
Mesaj: 45
Excel Vers. ve Dili:
Microsoft Office 2015 Türkçe
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
Yukarıdaki (4 no lu mesajda) kodlarda bulunan kırmızı bölümleri ekleyip deneyiniz.
Hocam ne desem az çok teşekkür ederim emeğinize sağlık. Son bir şey daha rica edeceğim bu şekilde eklenen resmi silme imkanımız var mı yanlış resim ekledim ama silemiyorum.
__________________
-Fenerbahçe
Rizelli3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-03-2017, 07:16   #10
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,074
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
Rizelli3 tarafından gönderildi Mesajı Görüntüle
Hocam ne desem az çok teşekkür ederim emeğinize sağlık. Son bir şey daha rica edeceğim bu şekilde eklenen resmi silme imkanımız var mı yanlış resim ekledim ama silemiyorum.
Merhaba
Ek dosyayı inceleyin; size daha sonra da gerek olacaktır, ara,bul, sil ve değiştirme yapabilirsiniz.

http://s9.dosya.tc/server2/0ozmma/Ornek_Dosya3.zip.html

Bu mesaj en son " 18-03-2017 " tarihinde saat 15:52 itibariyle PLİNT tarafından düzenlenmiştir....
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:50


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - invest in turkey - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden