ReDim ile Oluşturulan Diziyi Kod İçerisinde Kopyalama

  • Konuyu başlatan Konuyu başlatan Qene
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Qene

VIP Üye
Kullanıcı
Katılım
28 Tem 2022
Mesajlar
360
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba arkadaşlar aşağıdaki kod yapısında göreceğiz şekilde İnputBox'a aralarında virgül olacak şekilde veri giriyorum.
Örnegin: ST01,ST00,STA1,ST02

Girdiğim bu veriyi ReDim ile dizi haline getirip Transpose yapıp excel sayfasına yazdırıyorum. Alt alta satır olarak yazıyor, bu hücrelerin hepsini seçip kopyala yapıyorum sonrasında paket programa yapıştırıyorum. Not: Satır halinde seçip kopyalamak önemlidir.

Yapmak istediğim; oluşan diziyi kod içerisinde direk kopyalaya bilmek (yardımcı sayfa kullanmadan) worksheetfunction.Transpose(dizi).Copy bu şekilde denedim olmadı. alan = worksheetfunction.Transpose(dizi)
alan.copy şeklinde de denedim olmadı, başına set de ekledim sonuç olumsuz.

Umarım sorunumu net şekilde ifade edebilmişimdir. İlgilenen arkadaşlara şimdiden teşekkürler.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)
 
VBA ile HTML Etiketleri Arasındaki Veriyi Çekme
VBA ile HTML Etiketleri Arasındaki Veriyi Çekme
VBA Penceresinde Harfleri UTF-8 ile Yazma
Tarihe göre sırala Oylamaya göre sırala
İlginiz için teşekkür ederim. 1.mesajımda parantez içerisinde belirtmiştim aslında yardımcı sayfa kullanmak istemediğimi, demek ki kendimi tam ifade edememişim. Aslında bende kopyalamayı bu şekilde yapıyorum lakin istediğim bu değil. Sayfaya hücreye yazdırman kopyalamak istiyorum diziyi.
Konu hakkında genel olarak yardımlarınızı rica ediyorum.
 
Oyla 0 Olumsuz oyla
Sub CopyToClipBoardWindows10()
Call ST_Vs
Call ClearClipboard3
ClipBoard_SetData CStr(aa)

End Sub

Yukarıdaki kodu çalıştırın.İnternetten bulup uyarladım.Kod bitince denemek için sayfadaki herhangi hücreye sağ clik ile yapıştırın.



VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(129 satır)
 
Oyla 0 Olumsuz oyla
ddd.webp


Apisiz clipboarda kopyalama kodlarını bulamadım.Vardıda references den seçme olayını bulmadım.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(125 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Apisiz olanıda buldum.
Resimdeki seçilmeli çıkmıyorsa açıklama var kodda.

Yani references ten ara olması gerek Türkçesi ona tıklayın ve system32 den FM20.DLL bunu seçin gelir.
Bende gelmemişti öyle yaptım.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(35 satır)
 
Oyla 0 Olumsuz oyla
Sn. @Refaz68 yardımlarınız için çok teşekkür ederim. Bende tam API'siz olabilir mi? diye yorum yazacaktım. Konu ile ilgilenip yardımcı olmaya çalışan arkadaşlara da teşekkürler.

Kodu tek makro başlık altında çalıştırdım, sonuç tam beklediğim gibi. Teşekkürler.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt