A satırındaki sayıları B1 hücresine atma

[emrebengul]

A satırındaki sayıları B1 hücresine atıp B1 hücresinide sarıya boyamak istiyorum yardımcı olur musunuz?
Ekli dosyayı görüntüle birleştirme.xlsm

 

[mrwarrior]

A sütunundaki sayıları B sütununa mı kopyalamak istiyorsunuz?

 

[emrebengul]

evet ama b1e kopyalamak istiyorum

 

[Ömer BARAN]

Merhaba.

Bir hususu netleştirmek lazım sanırım.
Bir hücre aralığını (A1:A14), bir hücreye (B1) kopyalamaktan kastınız nedir?
Biri hücre aralığı, diğeri tek bir hücre.

Sayın mrwarrior, A sütunu, B sütununa mı şeklinde sorduğunda da aynı cevabı vermişsiniz.
.

[FONT="Arial Narrow"][B]Sub Düğme1_Tıkla()[/B]
For satır = 1 To Sheets("Sayfa1").[A65536].End(3).Row
    metin = metin & ", " & Sheets("Sayfa1").Cells(satır, 1)
Next
With Sheets("Sayfa1")
.[B1] = Mid(metin, 3, Len(metin) - 2): .[B1].Interior.Color = vbRed: .Columns(2).AutoFit
End With
[B]End Sub[/B][/FONT]

 

[emrebengul]

yapmak istediğim örneği resimde paylaştım sizinki teker teker atıyor oraya. ben hepsini atmasını istiyorum

 

[Ömer BARAN]

Demek ki; ihtiyaç net ifade edilmemiş.

Önceki cevabımı güncelledim, sayfayı yenileyerek kontrol ediniz.
.

 

[emrebengul]

teşekkürler saolun

 

[Ömer BARAN]

teşekkürler saolun

Kolay gelsin.
.