Q

Çözüldü 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...
Q

Qene

Yıllık Site Üyesi
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: 
Görüntülemek için giriş yapmanız gerekmektedir.
(11 satır)
 
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: 
Görüntülemek 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: 
Görüntülemek için giriş yapmanız gerekmektedir.
(125 satır)
 

Ekli dosyalar

Moderatörün son düzenlenenleri:
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: 
Görüntülemek 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: 
Görüntülemek 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ı

Üst