combobox veri aktarımı

[elfgnr]

Ekte gönderdiğim dosyada;(D) sütunundaki herhangi bir hücreye çift tıkladığımda 1.nci sayfaya veri aktarıyor.
Benim istediğim;çift tıkladığımda 1.Sayfaya değil Hangi sayfaya veri aktaracağımı Sorsun seçimi ben yapayım diyorum (ÖRN: çift tıkladığmda karşıma seçenek kutusu çıksın 1.sayfaya'mı,2.Sayfaya'mı,3.sayfaya'mı göndermek istiyorsunuz desin Ben istediğime veri göndereyim.)
Bilmem anlatabildim mi? Bukonuda çok yeniyim formdaki ustalarımdan aldığım bilgi veya hazır komutları birleştirerek birşeyler yapmaya çalışıyorum.ilginize şimdiden teşekkür ederim.ELİF

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Sat = Sheets(ComboBox1.Value).Cells(65536, "D").End(3).Row + 1
Say = WorksheetFunction.CountIf(Sheets(ComboBox1.Value).Range("d2:d" & Sat), ActiveCell.Value)
If Say > 0 Then
Sor = MsgBox("Bu kayıt mevcut. Yinede eklemek istiyor musunuz?", vbYesNo, "UYARI")
If Sor = vbNo Then GoTo atla
End If
With Sheets(ComboBox1.Value)
    .Cells(Sat, "d") = ActiveCell.Value
    .Cells(Sat, "c") = ActiveCell.Offset(0, -1)
    .Cells(Sat, "b") = ActiveCell.Offset(0, -2)
    .Cells(Sat, "e") = ActiveCell.Offset(0, 1)
    .Cells(Sat, "f") = ActiveCell.Offset(0, 2)
    .Cells(Sat, "g") = ActiveCell.Offset(0, 3)
    .Cells(Sat, "a") = Sat - 1
    .Select: .Cells(Sat, "d").Select
End With
Unload Me
MsgBox Target & " kimlik numarası aktarıldı." & vbLf _
& vbLf & "evrengizlen@hotmail.com", vbInformation, "E V R E N"
Exit Sub
atla:
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In Worksheets
    If UCase(Left(sh.Name, 5)) = "SAYFA" Then ComboBox1.AddItem sh.Name
Next
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
    
End Sub

 

[elfgnr]

Dosyanız ektedir.

Sayın Evren Gizlen Hocam çok hızlısınız ellerinize sağlık tam düşündüğüm gibi bir çözüm bulmuşsunuz.
Siz gibi değerli hocalarım karşısında saygı ile eğiliyorum.İYİKİ VARSINIZ...

 

[Orion1]

Dosyanız ektedir.

Sayın Evren Gizlen Hocam çok hızlısınız ellerinize sağlık tam düşündüğüm gibi bir çözüm bulmuşsunuz.
Siz gibi değerli hocalarım karşısında saygı ile eğiliyorum.İYİKİ VARSINIZ...

Rica ederim.
Saygılar benden.
İyi çalışmalar.

 

[elfgnr]

sayın evren hocam daha önce gönderdiğim dosyada "Günü Gelenler" ve "Tamamı" isimli butonları görmüşsünüzdür.Her ikisi de çalışıyor ancak Listelenen dosya sayısı 50 den fazla olunca ekrana sığmıyor;Bu hatırlatma menüsünde bilgiler ekrana sığacak şekilde (ÖRN: ilk 50 bilgi 1.sütunda,ikinci 50 bilgi 2.Sütunda üçüncü 50 bilgi 3. sütunda) olabilir mi?
İkinci Sorum ise;Derleyip Gönderdiğiniz Dosyadaki Aktarma işi tamam hem de çok güzel olmuş;bir arzum daha olacak "VERİTABANI" dan bilgi istenilen sayfaya aktarıldıktan sonra "VERİTABANI" nındaki bilgiyi otomatık silen bir versiyon yapılabilir mi?


Saygılarımla.İyi çalışmalar ELİF

 

[Orion1]

sayın evren hocam daha önce gönderdiğim dosyada "Günü Gelenler" ve "Tamamı" isimli butonları görmüşsünüzdür.Her ikisi de çalışıyor ancak Listelenen dosya sayısı 50 den fazla olunca ekrana sığmıyor;Bu hatırlatma menüsünde bilgiler ekrana sığacak şekilde (ÖRN: ilk 50 bilgi 1.sütunda,ikinci 50 bilgi 2.Sütunda üçüncü 50 bilgi 3. sütunda) olabilir mi?
İkinci Sorum ise;Derleyip Gönderdiğiniz Dosyadaki Aktarma işi tamam hem de çok güzel olmuş;bir arzum daha olacak "VERİTABANI" dan bilgi istenilen sayfaya aktarıldıktan sonra "VERİTABANI" nındaki bilgiyi otomatık silen bir versiyon yapılabilir mi?


Saygılarımla.İyi çalışmalar ELİF

Dosyanız ektedir..

 

[elfgnr]

EVREN hocam ellerine sağlık Lütfen işim görüldü diye yağcılık yaptığımı sanmayın lütfen...
Umarım birgün ben de siz gibi birilerine yardımcı olacak seviyelere gelirim.Hem Çok HIZLISINIZ.Ham de Çok MÜTEVAZİ....
Bana vakit ayırdığın için çok teşekkür ediyorum.
SONSUZ SAYGILARIMLA.iyi çalışmalar diliyorum.(Zaten dilemesem de siz Çok İyi Çalışıyorsunuz)

 

[Orion1]

EVREN hocam ellerine sağlık Lütfen işim görüldü diye yağcılık yaptığımı sanmayın lütfen...
Umarım birgün ben de siz gibi birilerine yardımcı olacak seviyelere gelirim.Hem Çok HIZLISINIZ.Ham de Çok MÜTEVAZİ....
Bana vakit ayırdığın için çok teşekkür ediyorum.
SONSUZ SAYGILARIMLA.iyi çalışmalar diliyorum.(Zaten dilemesem de siz Çok İyi Çalışıyorsunuz)

Rica ederim.
İyi çalışmalar.

 

[elfgnr]

Sayın evren hocam iyi akşamlar diliyorum..
Sizin derleyip topladığınız dosyaya bir ek daha istesem yardımcı olurmusunuz?..

İstediğim ek; Aktif sütuna bağlı dışardan yeni dosyalar eklemek,silmek gibi
örnek dosyada daha çok açıklama yaptım.
ilginiz için şimdiden teşekkürler.....

 

[Orion1]

Bu tür sorulara cevap vermiyorum.
Tehlikeli!
Sizin yanlış anlatımınızdan veya benim yanlış anlamamdan kaynaklanan bir durum olursa bir daha geri dönüşü olmaz.Sonra yaktın beni diye suçlamalara maruz kalırım.Onun için dikkat ettiyseniz forumdaki bu türden dosya ekleme silme gibi sorulara yanıt vermiyorum.Bunların geri dönüşü olmaz.
Sorunuzu başka bir arkadaş yanıtlayabilir.
Kolay gelsin.

 

[elfgnr]

sevgili hocam sanırım ben isteğimi anlatamadım.
buna benzer proğramlar var ancak şifreli olduğu için açamıyorum.
öyle bir cevap vermiş siniz ki kendimi suçlu gibi gördüm.Sanki yasal olmayan bir şey istemişim gibi hissettirdiniz...
tek istediğim dosyama bağlı çalışabilen diğer dosyalar dı...
sizi böyle düşündürdüğüm için hem çok üzüldüm hemde sizi üzdüğüm için özür dilerim..
inanın ben masumum.... kötü bir şey istemedim.