do while loop

[hoguz2]

arkadaslar merhaba bir donguye ihtiyacim var. yardimci olabilir misiniz lutfen.

b sutununda degisken degerler var.

makro b1den baslayarak hucrelere baksın mesela b1 doluysa a sutununa baksın a sutunundaki ilk bos hucreye ( ahmet sabit degeriyle b1deki degeri birlestirip yazsın ) ahmet&"b1" altindaki hucreye mehmet sabit degerini yazsın sonra tekrar b2 ye baksın doluysa a sutunundaki ilk bos hucreye ahmet&"b2" onun altındaki hucreye mehmet

ve bıu boyle

b stunundaki ilk bos hucreye kadar devam etsin


umarim anlata bilmisimdir.



iyi calismalar tesekkurler.

 

[Necdet]

Merhaba,

Sorunuz hem anlaşılıyor hem anlaşılmıyor. Örnek dosya ile ne olması gerektiğini açıklarsanız daha hızlı yanıt alırsınız.

 

[nsertoglu]

arkadaslar merhaba bir donguye ihtiyacim var. yardimci olabilir misiniz lutfen.

b sutununda degisken degerler var.

makro b1den baslayarak hucrelere baksın mesela b1 doluysa a sutununa baksın a sutunundaki ilk bos hucreye ( ahmet sabit degeriyle b1deki degeri birlestirip yazsın ) ahmet&"b1" altindaki hucreye mehmet sabit degerini yazsın sonra tekrar b2 ye baksın doluysa a sutunundaki ilk bos hucreye ahmet&"b2" onun altındaki hucreye mehmet

ve bıu boyle

b stunundaki ilk bos hucreye kadar devam etsin


umarim anlata bilmisimdir.



iyi calismalar tesekkurler.

Aşağıdaki kodu bir deneyin bakalım anlaşılabilmiş mi ?

Sub doluB_bosA_yaz()

Cells(Rows.Count, "a").Select
Sr = Selection.End(xlUp).Row
Cells(3, 1).Select
For r = 3 To Sr
If Cells(r, "b") <> Empty Then
Cells(Rows.Count, "a").Select
Sr = Selection.End(xlUp).Row + 1
Cells(Sr, "A") = Cells(r, "a") & "-" & Cells(r, "b")
Else
End ' ilk boş B için işlemi bitir
End If
Next r
End Sub

 

[hoguz2]

sanirim anlatamamişim. ilişikteki resimler umarim yardimci olur.

B stununda degiskenler Var. A stununa yazdiracagim seyler aslinda sabit ama bir tanesinin arkasina b deki degeri eklemem lazim.

birinci resim makro calismadan once ikinci resim makro calistiktan sonra..

tabi asil dosyada b stununda binlerce deger var

Saygılarımla,