Dış Veri Alma Yardım Lütfen..

[SaGo16]

Merhaba Arkadaşlar,

foruma henüz bugün üye oldum.
sormak istediğim şey şudur ki;
iki farklı dosyam var. birisi sipariş formu, diğeri sipariş takip dosyası.
ben yeni bir sipariş formu oluşturduğumda, bu formdaki bazı verilerin otomatik olarak tüm siparişler dosyasına aktarılmasını istiyorum. bunu nasıl yapabillirim?
sipariş formundaki aktarılmasını istediğim hücreleri kırmızı renkle gösterdim.
yardımınız için şimdiden teşekkürler.

*not: eğer yanlış yere konuyu açtıysam lütfen moderatör arkadaşlar gerekli yere konuyu taşısın..

 

[İhsan Tank]

Merhaba
Öncelikle Hoş Geldiniz
Sorular
1. dosyalar aynı klasör içinde mi olacak aynı klasör içinde olmayacak ise adres ( yol ) bilgilerini gönderir misiniz_?
2. sip.takip dosyasından verileri girip kod'u çalıştırdığınızda alt kısımda sip.formu dosyasını açıp kayıt yapsa sizin için problem olur mu_?

 

[SaGo16]

Hızlı dönüşünüz için öncelikle teşekkürler.
yapmak istediğim şu;
her bir müşterinin beher siparişi için ayrı bir sipariş formu oluşturuyoruz. bu siparişler 1 kalemde olabilir 20 kalemde.
benim istediğim bir sipariş formu oluşturduğumda, bu formdaki kırmızı renkle belirttiğim verileri otomatik olarak sipariş takip formuna atmak istiyorum. örneğin sipariş formunun yanında print ederken görünmez bir buton olur, ben formu oluşturduğumda, dönüştür butonuna bastığımda ilgili verileri sip takip formuna otomatik olarak aktarır. ben sipariş takip formunu açtığımda bu aktarılmış verileri otomatik olarak veya güncelledikten sonra görebileyim.
sipariş formları ve sip takip formu aynı klasörde olabilir. örn: "Siparisler" diye bir klasör altında.

şimdiden çok teşekkürler..

 

[İhsan Tank]

Hızlı dönüşünüz için öncelikle teşekkürler.
yapmak istediğim şu;
her bir müşterinin beher siparişi için ayrı bir sipariş formu oluşturuyoruz. bu siparişler 1 kalemde olabilir 20 kalemde.
benim istediğim bir sipariş formu oluşturduğumda, bu formdaki kırmızı renkle belirttiğim verileri otomatik olarak sipariş takip formuna atmak istiyorum. örneğin sipariş formunun yanında print ederken görünmez bir buton olur, ben formu oluşturduğumda, dönüştür butonuna bastığımda ilgili verileri sip takip formuna otomatik olarak aktarır. ben sipariş takip formunu açtığımda bu aktarılmış verileri otomatik olarak veya güncelledikten sonra görebileyim.
sipariş formları ve sip takip formu aynı klasörde olabilir. örn: "Siparisler" diye bir klasör altında.

şimdiden çok teşekkürler..

Sipariş'te kaçtane giriş olacağını söylerseniz. Yani kaç satır olacak en son 32. satır'a kadar mı giriş olacak. En son hangi satır'a kadar giriş yapacaksınız onu söyleyin ben de ona göre yaparım

 

[SaGo16]

Sipariş'te kaçtane giriş olacağını söylerseniz. Yani kaç satır olacak en son 32. satır'a kadar mı giriş olacak. En son hangi satır'a kadar giriş yapacaksınız onu söyleyin ben de ona göre yaparım

sipariş bölümüne 20-25 satır malzeme yazabilmem iyi olur.

teşekkürler..

 

[İhsan Tank]

sipariş bölümüne 20-25 satır malzeme yazabilmem iyi olur.

teşekkürler..

Yalnız eksik bilgiler var
Kontrol No
Kalan Bakiye
Depo Mevcut Bakiye
Tedarikçi Firma
Teslim Süresi
Termin Tarihi
Sipariş Durumu
Teslim Tarihi
Gelen Malzeme / Tarihler
Bunlara hangi bilgiler gelecek

 

[SaGo16]

bunları sipariş takip formunun üzerinde manuel dolduracağız.
aynı zamanda sipariş formuna pdf'e çevir diye de print ederken ya da pdf'e çevirirken bir gözükmeyecek bir buton olursa tadından yenmez (Tabi olursa; olmasa da olur.. olursa daha iyi olur.)
Sip formunu ve sip takip dosyalarını daha anlaşılır olması için yeniledim.
şimdiden tşk.

 

[İhsan Tank]

bunları sipariş takip formunun üzerinde manuel dolduracağız.
aynı zamanda sipariş formuna pdf'e çevir diye de print ederken ya da pdf'e çevirirken bir gözükmeyecek bir buton olursa tadından yenmez (Tabi olursa; olmasa da olur.. olursa daha iyi olur.)
Sip formunu ve sip takip dosyalarını daha anlaşılır olması için yeniledim.
şimdiden tşk.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub aktar()
Dim ts, kaplan, trabzonspor, bordo, mavi, hamsi
kaplan = MsgBox("Sipariş Kaydını Yapıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Application.ScreenUpdating = False
bordo = ThisWorkbook.Path & "\"
mavi = "sip takip.xls"
hamsi = ActiveWorkbook.Name
Workbooks.Open (bordo & mavi)
For ts = 12 To 31
If Workbooks(hamsi).Sheets("Sayfa1").Cells(ts, "A") <> "" Then
trabzonspor = Workbooks(mavi).Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Workbooks(mavi).Sheets("Sayfa1").Range("A" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Range("H35")
Workbooks(mavi).Sheets("Sayfa1").Range("B" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Range("F4")
Workbooks(mavi).Sheets("Sayfa1").Range("C" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "A")
Workbooks(mavi).Sheets("Sayfa1").Range("D" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "C")
Workbooks(mavi).Sheets("Sayfa1").Range("E" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "I")
Workbooks(mavi).Sheets("Sayfa1").Range("F" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "R")
Workbooks(mavi).Sheets("Sayfa1").Range("G" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "S")
Workbooks(mavi).Sheets("Sayfa1").Range("H" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "T")
Workbooks(mavi).Sheets("Sayfa1").Range("I" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "X")
Workbooks(mavi).Sheets("Sayfa1").Range("J" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "AD")
Workbooks(mavi).Sheets("Sayfa1").Range("M" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Range("F8")
Workbooks(mavi).Sheets("Sayfa1").Range("N" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Range("F6")
Workbooks(mavi).Sheets("Sayfa1").Range("O" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Range("F5")
Workbooks(mavi).Sheets("Sayfa1").Range("P" & trabzonspor + 1) = Workbooks(hamsi). _
Sheets("Sayfa1").Cells(ts, "Z")
End If
Next
Workbooks(mavi).Save
Workbooks(mavi).Close
Application.ScreenUpdating = True
MsgBox "Siparişi Kaydettim", vbInformation, "Bitiş"
End Sub

2. sorunuz için ise : 2003'de pdf kaydetme kod ile olmuyor internette arama yaparsanız bilgilere ulaşabilirsiniz_?

 

[SaGo16]

çok teşekkür ediyorum. ellerine, beynine sağlık..

 

[İhsan Tank]

çok teşekkür ediyorum. ellerine, beynine sağlık..

Rica ederim
:yazici:

 

[bunyamin07]

Arkadaşlar Böyle birşey olma ihtimali varmıdır..????

http://www.excel.web.tr gibi herhangibir cümleyi google de arattığımızda hani cümleyi bütünüyle bold yapıp buluyor.. Bu kontrolü excelle yapma şansım varmı?

 

[Excelmy]

Sayın bunyamin07

Evet vardır.
Ama sorunuzun bu konu başlığı ile bağlantısı nedir ?