Msgbox'taki yazıyı kopyalama

[avare1907]

Arkadaşlar bi konuda yardımınızı rica edicem konuyu şu şekilde ifade etmek istiyorum,

Ben işyerimde 15'e yakın şifre kullanıyorum haliyle her birini akılda tutmak yada sürekli yazmak zaman kaybına ve sıkıntıya yol açıyor...kullanıcı adı ve şifreleri msgbox penceresi yolu ile görüntülüyorum açılan penceredeki kullanıcı adı yada şifre otomatik kopyalanmasını istiyorum mümkünmüdür ?? örnek dosyayı ekliyorum...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()

    Dim d As DataObject, metin As String
    
    Set d = New DataObject
    metin = "BURADAKİ YAZI OTOMATİK KOPYALANSIN" 'kopyalanacak veri

    d.SetText metin
    d.PutInClipboard

    MsgBox metin, , "Mesaj Kopyalandı"
    
End Sub

.

 

[avare1907]

Ömer bey büyük teşekkür ediyorum emeğinize sağlık çok güzel oldu...

 

[avare1907]

ömer bey yalnız hesaba katmadığım bir durum oluştu şöyleki Firmaya göre değişkenlik gösteren ardı ardına açılan 3 msgbox pneceresi Firma kodu + kullanıcı adı + şifre yada sadece kullnıcı adı + şifre penceresi...bunların her biri ayrı ayrı kopyalanması gerekiyor bu şekilde mümkünmüdür desteiğiniz için şimdiden teşekkürler...

 

[Ömer]

Hangi siteye bunları yazmak istiyorsunuz.

.

 

[avare1907]

çalışmış olduğum şirket ile bağlantılı olan lojistik portallarına giriş yapmak üzere kullanıyorum...

excel üzerinde her firmanın isminin bulunduğu butonlar hazırladım butonların içine kullanıcı adı ve şifreleri msgbox pencereleri ile ardı ardına açılacak şekilde makro atadım...ve aslında otomatik kopyalanabileceğini sizin desteiğiniz ile öğrendik..pencereler her enter yada esc tuşuna basıldıkça yeni pencere açılıyor, açılan her penceredeki yazı kopyalandıktan sonra portal üzerindeki ilgili yerlere yapıştırmak istiyorum...mümkünse tabiii

 

[Ömer]

Merhaba,

Kodlar şifleri clipboard panoya kopyalar. Siz buradan seçip yapıştırma yapabilirsiniz.

Yapıştırma işlemi için resimli anlatım:

http://www.excel.web.tr/f42/clipboard-acma-iki-kez-ctrl-c-t111443.html

Private Sub CommandButton1_Click()

    Dim d As DataObject
    Dim metin1, metin2, metin3
    
    Set d = New DataObject
    metin1 = "abc" 'Firma Kodu
    metin2 = "def" 'Kullanıcı Adı
    metin3 = "123" 'şifre

    d.SetText metin1
    d.PutInClipboard
    MsgBox "Firma Kodu: " & metin1, , "Kopyalanan Veri"
    
    d.SetText metin2
    d.PutInClipboard
    MsgBox "Kullanıcı Adı: " & metin2, , "Kopyalanan Veri"
    
    d.SetText metin3
    d.PutInClipboard
    MsgBox "Şifre: " & metin3, , "Kopyalanan Veri"
    

End Sub

.

 

[avare1907]

Ömer bey teşekkür ederim desteğiniz ile hallettim...