Butonlar ile diğer sayfadan hücre getirme

[extremetonic]

Merhaba, ekteki dosyada olduğu gibi bir macro istiyorum. Bunu nasıl yapabiliriz? Excel açıldığında Türkçe altına kelime gelsin standart olarak. Çevir butonuna bastığımda İngilizce altına karşılığını Kelimeler sayfasından getirsin. Bu kelimeyi öğrendim butonuna tıklayınca o kelimeyi bir daha çıkarmasın ve yeni kelime getir butonu ile de kelimeler sayfasından yeni Türkçe kelimeyi getirsin. Tümünü sıfırla ile de bu kelimeyi öğrendim ile çıkartılmayanlar tekrar eklensin istiyorum. Umarım anlatabilmişimdir Yardım eden arkadaşlara şimdiden teşekkürler

 

[extremetonic]

Yardımcı olabilecek yok mu?

 

[extremetonic]

Burdaki ustalar için çok kolay bir şey bu ama?

 

[antonio]

İstediğniz şekilde bir çalışma oluşması için "Tamam" isimli bir sekme ilave ettim. "Bu kelimeyi biliyorum Artık Gösterme" butonuna bastığınız zaman o kelimeyi "Tamam" Sayfasına taşır. Siz "Kelimeler" Sayfasına istediğiniz kadar kelime yükleyin. Türkçe butonu size rastgele yeni türkçe kelimeler, ingilizce butonu ise rastgele ingilizce kelimeler üretecektir.
Umarım istediğiniz gibi olmuştur. Kolay gelsin.

 

[extremetonic]

İstediğniz şekilde bir çalışma oluşması için "Tamam" isimli bir sekme ilave ettim. "Bu kelimeyi biliyorum Artık Gösterme" butonuna bastığınız zaman o kelimeyi "Tamam" Sayfasına taşır. Siz "Kelimeler" Sayfasına istediğiniz kadar kelime yükleyin. Türkçe butonu size rastgele yeni türkçe kelimeler, ingilizce butonu ise rastgele ingilizce kelimeler üretecektir.
Umarım istediğiniz gibi olmuştur. Kolay gelsin.

Harika antonio çok teşekkürler, eline sağlık Küçük bir isteğim daha var yapabilirsen; "Alanları temizle" yerine sıfırla butonu koyabilir miyiz? Sıfırlaya bastığımızda "Tamam" sayfasındakileri tekrar "Kelimeler" sayfasına geçirsin ve sil baştan başlanabilsin. Bu da mümkün mü?

 

[antonio]

Harika antonio çok teşekkürler, eline sağlık Küçük bir isteğim daha var yapabilirsen; "Alanları temizle" yerine sıfırla butonu koyabilir miyiz? Sıfırlaya bastığımızda "Tamam" sayfasındakileri tekrar "Kelimeler" sayfasına geçirsin ve sil baştan başlanabilsin. Bu da mümkün mü?

4 No'lu mesajda ki dosyayı istediğiniz şekilde güncelledim. Kolay gelsin.

 

[extremetonic]

Süpersin tam istediğim gibi oldu, eline sağlık

Bir sorum daha olacak benim Öğrendiğime göre excele ses dosyası da gömebiliyormuşuz, doğru mu? Çevir butonuna bastığımızda aynı zamanda o çevirdiği kelimeyi söyleyen mp3 gibi bir ses formatını da çalabilir mi?

 

[antonio]

Süpersin tam istediğim gibi oldu, eline sağlık

Bir sorum daha olacak benim Öğrendiğime göre excele ses dosyası da gömebiliyormuşuz, doğru mu? Çevir butonuna bastığımızda aynı zamanda o çevirdiği kelimeyi söyleyen mp3 gibi bir ses formatını da çalabilir mi?

Henüz böyle bir konuda çalışmam olmadı. Ancak yaptığım kısa bir araştırmaya göre mümkündür. Örnek dosyayı düzenledim. "DİNLE" Butonu ve bir WindowsMediaPlayer Nesnesi yerleştirdim. Bu durumda yapmanız gereken şey; dinleteceğiniz kelimelerin dosya yolunu belirlemeniz, ve Kelime_Adı.mp3 dosya uzantısını tanımlamak. Türkçe kelimelerin ingilizce telafuzunu dinleteceğinizi var sayarak kodları şöyle düzenledim:

Sub dinle()
Dim kelime As String, yol As String, sh As Worksheet

Set sh = Worksheets("Ders")
sh.Activate
If sh.Range("B5") = "" Then Exit Sub
yol = "C:\Users\Kullanıcı_Adınız\Documents\" '==Dosya yolunu siz belirleyin.
kelime = sh.Range("B5").Text & ".mp3" '==Dinletilecek ses dosyasının önceden
'Türkçe kelimelerle adlandırılmış olması gerekir.
WindowsMediaPlayer1.URL = yol & kelime
End Sub

Uzman arkadaşlar da fikirlerini belirtirlerse çok sevinirim.
Kolay gelsin.

 

[extremetonic]

Henüz böyle bir konuda çalışmam olmadı. Ancak yaptığım kısa bir araştırmaya göre mümkündür. Örnek dosyayı düzenledim. "DİNLE" Butonu ve bir WindowsMediaPlayer Nesnesi yerleştirdim. Bu durumda yapmanız gereken şey; dinleteceğiniz kelimelerin dosya yolunu belirlemeniz, ve Kelime_Adı.mp3 dosya uzantısını tanımlamak. Türkçe kelimelerin ingilizce telafuzunu dinleteceğinizi var sayarak kodları şöyle düzenledim:

Sub dinle()
Dim kelime As String, yol As String, sh As Worksheet

Set sh = Worksheets("Ders")
sh.Activate
If sh.Range("B5") = "" Then Exit Sub
yol = "C:\Users\Kullanıcı_Adınız\Documents\" '==Dosya yolunu siz belirleyin.
kelime = sh.Range("B5").Text & ".mp3" '==Dinletilecek ses dosyasının önceden
'Türkçe kelimelerle adlandırılmış olması gerekir.
WindowsMediaPlayer1.URL = yol & kelime
End Sub

Uzman arkadaşlar da fikirlerini belirtirlerse çok sevinirim.
Kolay gelsin.

Teşekkürler antonio, deniyim bi

 

[extremetonic]

Denedim ama çalıştıramadım bu kodu

 

[antonio]

Denedim ama çalıştıramadım bu kodu

Bilgisayarında wmp (Windows Media Player) eklentisinin aktif olduğunu ve dosya yolunun doğruluğunu kontrol etmelisiniz. "Ses dosyaları" yazarak bu forumda arama yaparsanız birçok yapılmış örnek bulabilirsiniz. Google Arama Motoruna da "vba makro ses dosyalarını açma kodu" yazarsanız bir çok çalışma bulabilirsiniz.
Kolay gelsin.

 

[extremetonic]

Bilgisayarında wmp (Windows Media Player) eklentisinin aktif olduğunu ve dosya yolunun doğruluğunu kontrol etmelisiniz. "Ses dosyaları" yazarak bu forumda arama yaparsanız birçok yapılmış örnek bulabilirsiniz. Google Arama Motoruna da "vba makro ses dosyalarını açma kodu" yazarsanız bir çok çalışma bulabilirsiniz.
Kolay gelsin.

Eklenti aktif ve dosya yolu doğru. Ama yinede çalıştıramadım. Forumda çözüme tam ulaştırılmış bulamadım. Googleda aradığımda da genelde çok eski tarihliler çıktığından farklılıklar var. Sağlık olsun, bu kadar olması bile iyi. teşekkürler