butona tıkladığımda diğer sayfadan bilgileri alma?

[CeNK_aLPeR]

arkadaşlar merhaba;

makro konusunda pek bi bilgim yok biraz baktım fakat anlayamadım..

staj yaptığım yerde bana bi araştırma konusu verdiler.

istedikleri, ilk sayfada üstte bir buton olması, butonun altında ise adı soyadı gbi bilgilerin başlıklarının olmasını
dier sayfada bu bilgilerin içeriklerinin olmasını
butona bastıımda 2.sayfadaki bilgilerin ilk sayfadaki ilgili yerlerine gitmesini sölediler

bilmiorum anlatabildimm mi fakat yardımcı olursanız çok sevnirim

 

[Selçuk1]

sn. casmania,

aramıza hoş geldiniz. küçük bir örnek dosya eklerseniz yardımcı olmak kolaylaşacaktır.

2nci sayfadaki bilgilerin yerleri sabit mi, yoksa belli kritere uyan veriler mi bulunup 1nci sayfaya alınacak?

 

[CeNK_aLPeR]

teşekkürler cellchuq...

anlatmak istediğim "oluştur" butonuna tıkladığımda 2.resimdeki bilgiler butonun altındaki ilgili yerlere gelsin...

 

[CeNK_aLPeR]

arkadaşlar yardım edebilecek bi arkadaş yokmu? bnm için çok önemli

 

[emrexcel123]

örnek dosya??

arkadaşım kullandığın dosyayı yollar mısın yardımcı olabiliriz...

 

[zafer]

Merhaba

Aşağıdaki bölüm linkindeki konuları inceleyiniz.

http://www.excel.web.tr/forumdisplay.php?f=119


Ayrıca örneğide inceleyiniz.

 

[CeNK_aLPeR]

Teşekkür ederim..

Ben biraz inceledikten sonra beceremezsem dosyayı gönderirim şimdi gönderirsem araştırma konusu olmaktan çıkıyor. Salıdan beri araştırıyorum daha dün buldum bu siteyi çok faydalı bir site.Konuyla ilgili görüştüğüm herkese adresi veriyorum.

Bu arada sn. zafer ekte vermiş olduğunuz excel örneğinden kodlara ulaşamıyorum yardımcı olabilirmisiniz?

Birde dosyayı siteye nasıl gönderebilirim?Ataçlar görüyorum fakat ben bulamadım.Kaldırıldımı yoksa upload sitelerinden link mi veriyoruz?

Saygılar

 

[CeNK_aLPeR]

Sub Button1_Click()

c = Sheets("DOSYA OLUSTURMA").Cells(65536, 1).End(xlUp).Row
For i = 1 To 7

Sheets("DOSYA OLUSTURMA").Cells(c + 1, i) = Sheets("Ana Kayıt").Cells(c + 1, i)
Next
Sheets("Ana Kayıt").Range("a2:g2").Clear

End Sub

----

arkadaşlar bu komutu kullanarak dier sayfadki bilgileri aldım fakat yukardaki resimlerin 1.sinde farkettiysnz "anahtar alan" - "özel alan" - "picklist" - "alıcım kodu" kısımları war ama ben butona tıkladığımda ordaki "özel alan ve "picklist" kısmın boş kalıp "anahtar alan" ve "alıcım kodu"nun yerleşmesini istiyorum. kısaca butona bastığımda "anahtar alan" girilecek "özel alan" ve "picklist" boş kalacak "alıcım kodu" girilecek.bunun için ne gibi bir deişiklik yapmalıyım?

umarım açıklayıcı olmuşumdur

 

[zafer]

Merhaba

Ana kayıt sayfasının 2 satırına bilgi giriyorsunuz.her girdiğiniz bilgi Dosya oluışturma sayfasında alt alta yazılıyor.Sadece 1 ve 3 sütundaki bilgiler.


Sub Button1_Click()
c = Sheets("DOSYA OLUSTURMA").Cells(65536, 1).End(xlUp).Row

Sheets("DOSYA OLUSTURMA").Cells(c + 1, 1) = Sheets("Ana Kayıt").Cells(2, 1)
Sheets("DOSYA OLUSTURMA").Cells(c + 1, 3) = Sheets("Ana Kayıt").Cells(2, 3)
Sheets("Ana Kayıt").Range("a2:g2").Clear
End Sub

Başka şey istiyorsanız.
Dosya göndermek için mesajın altında eklentileri yönet tuşuna basın gelen pencerede gözat'ı seçip bilgisayarınızdan dosyayı seçin sonra upload tuşuna basın.
bittiğinde gönder tuşuna basınız.

açıklamanızı dosya içinde tam olarak yapabilirsiniz.

 

[CeNK_aLPeR]

teşekkür ederim yardımlarınız için ama o tarafı yapsam bu taraf bosuluo bu tarafı yapsam o taraf bosuluo işin içinden çıkmadım...
ekte gönderiorum yardım ederseniz sevinirim

 

[zafer]

Merhaba

Formül ile istermisiniz.Daha basit şekilde istediğiniz bilgilere ılaşabilirsiniz.

 

[CeNK_aLPeR]

evet o şekilde çok daha iyi olur

 

[zafer]

Merhaba

Ekli dosyada konu.xls formül ile konu1.xls kod ile yapılmıştır.

inceleyiniz.

 

[kmlpyrz]

Bu sayfalar,farklı farklı excel dosyalarında olsalardı.

Örnek: C:\Program Files\Örnek1.xls içinde DOSYA OLUSTURMA sayfası
Örnek: D:\Yeni Klasör\Örnek2.xls içinde Ana Kayıt sayfası olsaydı.

Verileri aktarabilmek için makro kodunu nasıl değiştirmemiz gerekirdi?

 

[zafer]

Merhaba


=DÜŞEYARA(A4;'Ana Kayıt'!$A41:$D$27;2;0)

yerine aşağıda kırmızı olanlar ilave edilecektir
=DÜŞEYARA(A4;'D:\Dosyalar\[ornek.xls]Ana Kayıt'!$A$1:$D$27;2;0)

 

[kmlpyrz]

Benim hücrelere formül girmemem gerekiyor. Bu fonksiyonu VBA kodu ile yapmalıyım. Yani aşağıdaki kod üzerinde nasıl değişiklik yapmalıyım.

Sub listele3()
Application.ScreenUpdating = False
SON = Sheets("Ana Kayıt").Cells(65536, 1).End(xlUp).Row
For B = 2 To SON
Sheets("DOSYA OLUSTURMA").Cells(B + 2, 1) = Sheets("Ana Kayıt").Cells(B, 1)
Sheets("DOSYA OLUSTURMA").Cells(B + 2, 4) = Sheets("Ana Kayıt").Cells(B, 2)
Sheets("DOSYA OLUSTURMA").Cells(B + 2, 6) = Sheets("Ana Kayıt").Cells(B, 4)
Next
End Sub

 

[zafer]

Merhaba

Bu iş ileri bir konu...

Aşağıdaki linkteki konuları inceleyiniz.

http://www.excel.web.tr/forumdisplay.php?f=117

 

[zafer]

Merhaba


Aynı konuyu berabermi yapıyorsunuz.

 

[kmlpyrz]

Yok hayır, ama ben sorunumu daha kolay anlatabilmek için bu konu başlığını seçtim. Edinebildiğim bilgileri ben kendi çalışmama ekleyebileceğimi düşünüyorum. Verdiğiniz linkleri inceledim ama bana çok karışık geldi. Yine de ilginizden dolayı çok teşekkürederim. Programımda zorlanacağımı düşündüğüm tek yerde bu veri alıp gönderme işi, bu sorunuda aşabilirsem programım tamamlandı sayılacak.
Benim çalışmam aşağıdaki linkte

http://www.excel.web.tr/attachment.php?attachmentid=10967&d=1170965421

 

[CeNK_aLPeR]

merhabalar;

öncelikle biraz gecikmede olsa teşekkür ederim.

ksura bakmayın perşembe günü teşekkür edemedim şirkette biraz yoğunluk wardı indirdim tam ilgilnirken başka bir iş geldi bakamadım.hafta sonuda diğer firmadaydım incelemek bugüne kaldı.


birkaç eksik wardı onları tamamladım.tek bir şey kaldı bnm makro "listele3" olarak görünüyor onun adını nereden değiştirebilirim?

*birde visual basic ile ilgili bir döküman nerden bulabilirim???a'dan z'ye tarzı...