DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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