Re: ]] XL-mania [[ Merge kolom bersyarat

[Haps]

' ---vba code ----- ditulis di Module standar

Sub *ConditionalMergeCell*()
  ' hapsari / 26 Oct 2011 / case XL-mania # 19458
  '-----------------------------------------------
   Dim C As Range, Cval As Variant
   Dim MergeRng As String, StartRng As String

   StartRng = Selection(1, 1).Address(0, 0) & ":"
   Cval = Selection(1, 1).Value

   Application.DisplayAlerts = False
   For Each C In Selection
      If C(1, 2) = Cval Then
         MergeRng = StartRng & C(1, 2).Address(0, 0)
      Else
         *Range(MergeRng).Merge*
         StartRng = C(1, 2).Address(0, 0) & ":"
         Cval = C(1, 2).Value
      End If
   Next
   Application.DisplayAlerts = True
End Sub

Cara menggunakan makro:
1. Blok / Select dulu *range (baris) yg akan diproses* ( dlm ksus ini = *
E6:BD6* )
2. Jalankan makronya, misal dengan Alt + F8, Pilih Nama Makro--nya, Klik RUN


2011/10/26 Eko Wahyudi <xo_wahyo...@yahoo.co.id>
>
> Dear Para suhu excel mania….
> Mohon ma’af sebelumnya apabila permasalahan yang saya ajukan ini sudah
pernah dibahas sebelumnya.
> Sebelum dan sesudahnya saya ucapkan terimakasih.
> Terimakasih.
> Regards
> Eko

(haps)_MergeKolomDenganSyarat.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12