• DİKKAT

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

UserForma resim eklemek

I

imdatsaral

Katılım
6 Eylül 2004
Mesajlar
239
Excel Vers. ve Dili
Excel 2013 Türkçe
selam arkadaşlar

UserForm daki LixBox a yazdığım değeri excel dosyamda farklı sayfalardaki hücrelere yazdırmak istiyorum.
ben kendi başıma aşağıdaki kodları yazdım ama olmuyor

Private Sub CommandButton1_Click()
Sheets("giris").Select Range("f12").Value = TextBox1
Sheets("giris").Select Range("f13").Value = TextBox2
Sheets("giris").Select Range("f14").Value = TextBox3
Sheets("K-ST").Select Range("B12").Value = TextBox4
Sheets("K-ST").Select Range("A12").Value = TextBox5
Sheets("K-ST").Select Range("B13").Value = TextBox6
Sheets("K-ST").Select Range("A13").Value = TextBox7
Sheets("K-ST").Select Range("B14").Value = TextBox8
Sheets("K-ST").Select Range("A14").Value = TextBox9
Sheets("K-ST").Select Range("B15").Value = TextBox10
Sheets("K-ST").Select Range("A15").Value = TextBox11
Sheets("K-ST").Select Range("B16").Value = TextBox12
Sheets("K-ST").Select Range("A16").Value = TextBox13
Unload Me
Application.Visible = True
Sheets("giris").Select
End Sub

yardım ederseniz sevinirim.

imdat saral
izmir
 
Sheets("giris").Select Range("f12").Value = TexBox1
Genişletmek için tıkla ...
Sorunuzda listboxtan veriyi aldığınızı belirtmişsiniz,fakat yazdığınız kodlarda textbox tan veri aktarılıyor görünüyor.
Yazdığınız satırları aşağıdaki gibi değiştirin.

[vb:1:940a96d727]Sheets("giris").Range("f12") = TexBox1 .value
[/vb:1:940a96d727]
 
sayın leventm,

yanlış anlatımımdan dolayı özür dilerim

Sheets("giris").Range("f12") = TexBox1 .value
kodu yazdığınız şekilde düzelttim ama istediğim şekilde istediğim hücreye yazmıyor hatta hiç bir yere yazmıyor size örneği gönderiyorum
 
TextBox1
TextBox2
...
..
 
Sheets("giris").Range("f12") = TexBox1 .value
Genişletmek için tıkla ...

Sn Raider'in uyarısı ile bende şimdi farkettim,bende atlamışım "t" harfini, bazen bu kadar küçük ayrıntıyı göremiyor insan,doğrusu aşağıdaki gibi olacaktır.
[vb:1:095aab2eaf]Sheets("giris").Range("f12") = TextBox1 .value
[/vb:1:095aab2eaf]
 
sayın Raider,

Verilerini girdiğim dosyayı kaydettikten sonra tekrar açtığımda TextBoxdaki bilgiler görünmüyor. Benim istediğim örneğin TextBox1 A1 hücresine yazıyor A1 hücresinde bilgi varsa TextBox1 de görünsün
Yapılabiliyor ise çok işime yarayacak vede işimi %50 azaltacak bu işlem. Bu dosya bir üretim form tekstille ilgili Yarım kalan bilgileri tamamlamak için için kullanacağım
İyi Çalışmalar

imdat saral
izmir
 
Userformu kapattığınızda textboxtaki bilgileri silinmesi normaldir. Eğer textboxta son yazdığınız değerin geri gelmesini istiyorsanız userforma aşağıdaki kodu yazın. Bu kodda A1 hücresindeki değer textbox1 de görünecektir.
[vb:1:f300386a7e]Private Sub UserForm_Initialize()
TextBox1 = [a1]
End Sub[/vb:1:f300386a7e]


Not:Sorunuzu Sn Raider'e sormuşsunuz, fakat kendisi bugün burada olmadığından özür dileyerek cevap veriyorum. Belki Sn Raider daha sonra farklı bir çözümde önerebilir.
 
UserFormun Initialize'ine bu kodları yazmanız yeterli.
[vb:1:bff13754e1]
Private Sub UserForm_Initialize()
TextBox1.Value = [a1]'Range("A1").Value de yazılabilir.
End Sub
[/vb:1:bff13754e1]

Edit :Leventm mesajınızı sonradan gördüm.
 
sayın xxrt,

Bu düznlediğim Üretim Formu sağlıklı şekilde çalışıyor. Ben sizden UserForm üzerinden bilgisayarımdan seçtiğim resimi excel sayfamda istediğim bölüne yapıştırabirmiyiz

imdat Saral
izmir
 
imdatsaral,

ekteki örneği inceleyiniz.
textbox'a yazdığınız resim kısayolundaki resmi gösterir (c:\resim\1.jpg gibi)
 
Sayın, inFiesta,

Benim İstediğim Daha Farklı. Tek resim Değil. Resim klasöründen İstediğim Resmi Seçip Bu resmi Excel de istediğim yere yapıştırmak istiyorum
 
sayın inFiesta,

yazmış olduğunuz kodu çalıştırdım hata veriyor

Private Sub ListBox1_Click()
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture("C:\Resim" & ListBox1)End Sub
 
imdatsaral, bende çalışıyor. başka bilgisayarda deneyiniz. Bu kodlar Raider'ın kodları. Ben sadece resmi sayfaya ekleme butonunu ekledim. Aynı kodu ilk aldığımda benim bilgisayarımda da çalışmamıştı.

Bir de resimlerinizi hem Belgelerim klasörünüze, hem de c:\resim klasörüne kopyalayıp deneyin. Sonucunu bildirirseniz sevinirim.
 
inFiesta, klasör olarak belgelerimi gösterdim ListBoxda resim adları görünüyor seçtiğimde hata veriyor
 
imdatsaral, aynı sorun bende de oldu listbox'ı belgelerimden resim eklemeyi c:\resim'den yapıyor. Kodlama bilgim çok iyi olmadığı için sebebini bilemiyorum ama o yüzden dedim hem belgelerime hem de c:\resim içerisine kopyalayın diye.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst