tek veriyi çok hücreye yapıştırmak

[musculus]

bas=[a65535].end(3).row
.
.
.
.
.
.
.
son=[a65535].end(3).row

arada değişken sayıda satır ekleyen kodlar var.
aradaki satır sayısı kadar b hücresine "excel.web.tr" yazdırmak istiyorum
range("b"&bas:"b"&son").select
satırı hata verdi ve ben çoklu satıra tekli veriyi yapıştıramadım
bu konuda yardımcı olursanız çok sevinirim

 

[Ömer]

Merhaba,

Sorunuz net değil. Örnek dosya ile detaylı açıklayınız.

Range("A1").Copy Range("B5:B10")

Bu işlem A1 deki veriyi B5:B10 arasına kopyalar. Aralıkları ilk son olarak değiştirebilirsiniz.

.

 

[uzmanamele]

merhaba

örnek dosya ekleseydiniz deneme şansımız olurdu.
bu şekilde deneyiniz.
range("b"&bas&":"&"b"&son").select

 

[musculus]

şimdi ilk satırı dolu bir excel düşünelim
bas=[a65535].end(3).row
bas=1 oluyor

arada çalışan kodlar var
diyelim ki 1000 satır veriyi a sutununa ekledi
son=[a65535].end(3).row
son=1001 olur
şimdi b sutununda 1 ile 1001 arasına range("v1") deki veri ne ise onu yazmasını istiyorum

range("b"&bas&":"&"b"&son").select kodu malesef çalışmadı eğer bu kodu çalıştırabilirsem
ömer beyin verdiği kodla birleştirerek sorun çözülür diye düşünüyorum

 

[musculus]

şimdi ilk satırı dolu bir excel düşünelim
bas=[a65535].end(3).row
bas=1 oluyor

arada çalışan kodlar var
diyelim ki 1000 satır veriyi a sutununa ekledi
son=[a65535].end(3).row
son=1001 olur
şimdi b sutununda 1 ile 1001 arasına range("v1") deki veri ne ise onu yazmasını istiyorum

range("b"&bas&":"&"b"&son").select kodu malesef çalışmadı eğer bu kodu çalıştırabilirsem
ömer beyin verdiği kodla birleştirerek sorun çözülür diye düşünüyorum

 

[Ömer]

Bu şekilde deneyin.

Range("V1").Copy Range("B1:B" & Son)

.

 

[musculus]

Bu şekilde deneyin.

Range("V1").Copy Range("B1:B" & Son)

.

b1 sabit değil yalnız
o yüzden sıkıntı yaşıyorum
başlangıç ve bitiş hücreleri değişken

 

[Ömer]

Bu şekilde deneyin.

ilk = [A1].End(4).Row
son = [A65536].End(3).Row
    If [A1] = "" Then
        Range("V1").Copy Range("B" & ilk & ":B" & son)
    Else
        Range("V1").Copy Range("B1:B" & son)
    End If

.

 

[musculus]

Sayın Ömer bey yardımınız için teşekkür ederim.Çözümünüz sorunumu çözdü.