...birazcık forklı
Bilgi ayarında clipbrd.dll dosyası varsa çalışır.
Sub deneme1()
Dim myClp As Object
Set myClp = CreateObject("clipbrd.clipboard")
If MsgBox("Data sayfasında A sütununda yer alan tüm sicil numaraları için ayrı ayrı form oluşturulacak ve C:\Dosyalar klasörüne kaydedilecek...
...ile çok küçük bir kod ile bu işlem oluyor.
kod:
Private Sub UserForm_Activate()
Dim myClp As Object
Set myClp = CreateObject("clipbrd.clipboard")
myClp.Clear
adres = ActiveWindow.RangeSelection.Address
Set Adres2 = ActiveSheet.Range(adres)
ActiveSheet.Range(Adres2.Address).Copy
Me.Picture =...
Kontrol ediniz.
Dim kls, n, DosyaAdi
Dim fs1 As Object
Dim Clipboard As New MSForms.DataObject
'Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com
VBA references de Microsoft Forms 2.0 Object library seçili olmalı.
Sub cokludosya()
Set fs1 =...
Necdet;
Dim kls, n, DosyaAdi
Dim fs1 As Object
Set fs1 = CreateObject("Scripting.FileSystemObject")
pano.panotxt = Clipboard.GetText
DosyaAdi = deneme
If DosyaAdi = "" Then
MsgBox "İşlem iptal edildi.", , "Klasöre Txt Oluştur"
Exit Sub
End If
komut_txt = pano.panotxt
txtdosya = (CurDir & "\" &...
...Office 2010 32 bit kurulu ve Microsoft Form 2.0 referansı mevcut değil. Dll dosyası yüklemeden işlem yapma imkanı var mı? Kod başınca clipboardı temizleyip B1 hücresini hafızaya alan bir kod lazım. https://wellsr.com/vba/2015/tutorials/vba-copy-to-clipboard-paste-clear/ sitede geniş bilgi...
...WithEvents lbt As MSForms.Label
Private Sub lbt_click()
Set MyData = New DataObject
MyData.SetText lbt.Caption
MyData.PutInClipboard
End Sub
Class modüle yazdığım Kod ile de Label'lara tıklayınca karakterleri clipboarda kopyaladım.
Private Sub TextBox1_MouseUp(ByVal Button As...
Referanslarda bu olmalı
microsoft forms 2.0 object library
Sub Rota()
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject
Dim myFile As String, adoStream As Object, NoA As Long, i As Long, myData As String
Const adSaveCreateOverWrite = 2
myFile = ThisWorkbook.Path &...
görebildiğim kadarı ile kodlardınızda uzun çalışma gerektiren bir durum yok.
bir ihtimal ekranı clipboard'a kopyalaması süreyi uzatıyordur.
ayrıca tek bir kod ihtiyacınızı görmeye yeterli.
aşağıdaki 1 saniye bile sürmedi:
Sub Wpkaydet1()
Dim hcr
Dim i As Long
hcr =...
Alternatif olsun
Dosyada kodların çalışması için referanslarda (clipboard.dll) dosyası seçili olmalı bu dosya yoksa kodlar çalışmaz bu dll dosyasınıda ekliyorum.
resimlerin gelmesi için a sutundaki hücrelere mause ile tıklamanız yeterli
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.