Soru Birleştirilmiş Hücreler - Yapıştırma

[k0081]

Merhaba arkadaşlar

Birleştirilmiş Hücrelere yapıştırma yapılmıyor. Buna bir alternatif var mı ?


Teşekkürler.

 

[sward175]

Merhaba, k0081,
Yapıştırmak istediğiniz birleştirdiğiniz hücrede ters klik, özel yapıştır, seçenek belirleyin, tamam.
Kolay gelsin.

 

[k0081]

olmuyor. özel yapıştırı da denedim. aynı hatayı veriyor.. boyutları aynı değil .. neyazık ki, ...

belki vba ile olabilir diye düşündüm. mesela ;

Hücreyi önce birleştirmeden çıkaracak, sonrasında yapıtıracak ve en son olarak her satırı yine birleştirecek.

 

[excelokyanus500]

Bunun gibi bir yapı olabilir. Kendinize göre uyarlayın.

Sub Makro1()
If Worksheets("Sayfa1").Range("A1").MergeCells Then

Range("A1").UnMerge
Else
Range("A1:B1").Merge
End If
End Sub

 

[k0081]

Evet. Ancak adres yani A1 , mous ile hangi hücreye tıklarsam orası olmalıdır... her zaman aynı değil.

 

[excelokyanus500]

Sayfanızın kod bölümüne yapıştırıp. Deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.MergeCells Then
Target.UnMerge
Else
' İşiniz bitince birleştirme için ilgili için hücreleri seçmelisiniz
  Target.Merge
End If
End Sub

 

[k0081]

@excelokyanus500

Evet. Bu şekilde bir yoldan gideceğiz. Aynı zamanda Yapıştırma ve tekrar birleştirmeyi de ekleyeceğiz.

Teşekkürler.

 

[DoğanD]

Merhaba,

İşinize yarar mı bilemiyorum fakat ben de böyle bir alternatif düşündüm.

Sub dd()
Dim rng, r, y As Range
Dim s As Integer
s = 0
Set rng = Application.InputBox("Aralık Seçiniz", "Aralık Kopyala", Type:=8)
Set y = Application.InputBox("Yapıştırılacak Hücreyi Seçin", "Aralık Kopyala", Type:=8)
For Each r In rng
Cells(y.Row + s, y.Column) = r.Value
s = s + 1
Next
End Sub

 

[k0081]

benzer bir durum., yardımcı olabilir teşekkürler.
*****************************

Sağ tuş menüsüne atadığımbazı komutlar var. Bu da yine sağtuşa atama yapacağım. sağ tuşla tıkladığım hücre, işlemin başlangıç hücresi olacaktır...