Medical fuar katılan listesi vba ile düzenleme

[cems]

Değerli üstadlar ;

Ekte bulunan excel dosyasında yurtdışında bir fuara Türkiye'den katılacaklar listesinden kısa bir örnek bulunmaktadır. Bu liste aslen 500 satırdan oluşmaktadır. Bu listede
firma adı ve altında adresi bulunmaktadır ve net yayını oldugundan gizli ozelliği yoktur. Kurulacak koddan beklenti ise ;

A Sütunu

Firmaadı
Adresi
Firmaadı
Adresi

Düzeninden , bir tuş altına konacak vba kodları yardımı ile

A sütunu ......................B sütunu
Firma adı .....................Adresi
Firma adı .....................Adresi

şeklinde firma adının sağına aktarılması ancak bu taşımadan dolayı oluşacak her boş satıırı da aktarma tamamlandıktan sonra kaldırma yolu ile listenin gorunumunde yer tasarrufu ve gorsel duzeni de en sonunda saglamaktır. Bu şekilde duzenlenecek anadosyada telefon mail vs ekleri de daha sonra fiilen teyid alarak elde eklenecektir, bu kısım ise personel tarafından belli bir programa gore duzenlenecek ve hareketli birime aktarılacaktır.

Bu şekilde Türkiye dışında da 112 ülke de bulunduğundan bu sayfaları elle yapmak yerine kod ile yapmak zamandan tasarruf sağlayacak.

Değerli ilginiz beklentimdir

 

[DoğanD]

Merhaba,

Aşağıdaki kodlar işinize yarayabilir.

Sub dd()
If Range("B2") <> "" Then
MsgBox "Dosya çalışmış", vbInformation
Exit Sub
End If
Dim i, firma As Integer
firma = WorksheetFunction.CountA(Range("A:A"))
For i = 3 To firma Step 2
Cells(i - 1, 2) = Cells(i, 1)
Cells(i, 1) = ""
Next i
For i = 2 To firma
If Cells(i, 1) = "" Then Rows(i).Delete
Next i
End Sub

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[cems]

Sayın DoğanD , Sayın muygun ;

Her iki kodlama da istenen işlemi harika bir hızla yaptı ve bir sonraki adıma geçmek için çok üstün yardımlarınız dokundu, elleriniz dert görmesin


Bu arada sayın muygun'un verdiği kodlamada benim unuttuğum ama önemli bir ayrıntı olarak , firma ve adreslerini firma harf sırasına da dikkat ederek yeniden ve boşluksuz sıraladı ve bir zaman da sıralama konusunda kazandırdı.

Her iki yardım için çok teşekkür ederim ..