Skip to main content

AccessTr.neT


Macro İle Kopyalama Yapma

Macro İle Kopyalama Yapma

#7
Şu şekilde modul'e ekledim ama acaba yanlışmı oldu? Eğer yanlış olmuş ise; Örnek dosyam üzerine ekleyebilir misiniz?
.rar Kod.rar (Dosya Boyutu: 86,39 KB | İndirme Sayısı: 2)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/07/2020, 21:59, Düzenleyen: yyhy.
Cevapla
#8
[Resim: do.php?img=9406]
Cevapla
#9
Sayın berduş;
Sub kopyala()
Dim SeciliRng As String
Dim SonHcr, SonHcr2 As Long
SonHcr = 0

For x = 2 To 17 'B:2. sütun, Q:17. sütun
SonHcr2 = Cells(Rows.Count, x).End(xlUp).Row
If SonHcr < SonHcr2 Then SonHcr = SonHcr2
Next x
SeciliRng = "B2:Q" & SonHcr 'Mid(SeciliRng, 2)
Range(SeciliRng).Copy
'Range(SeciliRng).Select
End Sub


macroyu bu şekilde düzenledim ama acaba veri olan en son satıra kadar seçtirebilir miyiz? Satırlara formülle verileri getiriyorum formüllü yerleri de seçiyor acaba sadece görünen verileri seçtirebilirmiyiz? Girdiğim formül ise şu şekilde =EĞER(YolcuGirisCikisListesi!E25="";"";YolcuGirisCikisListesi!E25)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/07/2020, 22:16, Düzenleyen: yyhy.
Cevapla
#10
Sayın Berduş eğer uğraştıracak ise bu haliyle de ihtiyaca cevap vermektedir.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#11
Videodaki anlatım fikir verebilir.Zamanım olsaydı uygulardım.Videoadaki koddaki myRng olan yerler ilgilendiriyor.Tabii oraki kodlara göre 255 den fazla birleştirme olursa sorun olurmu bilemiyorum.Yani nasıl anlatacağımıda bilemedim stringin 255 karakter uzunluğunu.

https://youtu.be/alWkIUBaDjQ
Cevapla
#12
Sayın feraz ve berduş ilgi ve emeğiniz için teşekkür ederim.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da