UserForma resim eklemek

[imdatsaral]

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

 

[Levent Menteşoğlu]

Sheets("giris").Select Range("f12").Value = TexBox1

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]

 

[imdatsaral]

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

 

[Haluk]

TextBox1
TextBox2
...
..

 

[Levent Menteşoğlu]

Sheets("giris").Range("f12") = TexBox1 .value

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]

 

[imdatsaral]

teşekkür ederim arkadaşlar
elinize sağlık

 

[imdatsaral]

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

 

[Levent Menteşoğlu]

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.

 

[xxrt]

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.

 

[imdatsaral]

sayn xxrt ve leventm

yardımlarınız için teşekkür ederim

 

[imdatsaral]

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

 

[Levent Menteşoğlu]

Aşağıdaki linkleri inceleyin.

http://www.excel.web.tr/search.php?mode=results

http://www.excel.web.tr/viewtopic.php?t=2557&highlight=resim

 

[inFiesta]

imdatsaral,

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

 

[imdatsaral]

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

 

[inFiesta]

Ekteki örneği inceleyiniz.

 

[imdatsaral]

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

 

[inFiesta]

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.

 

[imdatsaral]

inFiesta, klasör olarak belgelerimi gösterdim ListBoxda resim adları görünüyor seçtiğimde hata veriyor

 

[inFiesta]

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.