Merhabalar,
Ekli dosyadaki sorum icin yardimlarinizi rica ediyorum.
Tesekkurler,
Ekli dosyadaki sorum icin yardimlarinizi rica ediyorum.
Tesekkurler,
Ekli dosyalar
-
13.5 KB Görüntüleme: 6
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhabaMerhabalar,
Ekli dosyadaki sorum icin yardimlarinizi rica ediyorum.
Tesekkurler,
Option Explicit
Sub taşı()
Dim ts, kaplan
kaplan = MsgBox("Boşlukları Yan Sütun İle Dolduruyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
For ts = 6 To Cells(65536, "D").End(xlUp).Row
If Cells(ts, "D") = "" Then
Cells(ts, "D") = Cells(ts, "E")
End If
Next
MsgBox "Boşlukları Doldurdum", vbInformation, "Bitiş"
End Sub
bir yerde yanlışlık yapıyorsunuz o zamanMerhaba Cenk Bey, F5 yapiyorum bosluklari da seciyor. Ama anlamadigim = i koymak istedigim zaman secilen hucreler kayboluyor.
tsk
burada ne istediğinizi anlamadımBu arada benim istedigim bosluklarin D kolonuna degil ama a,c,b harflerinin D kolonundaki bosluklara yerlestirilmesidir. Eger yanlis ifade ettiysem kusura bakmayiniz
1 neden konuyu kilitlediniz siz kendinize mi çalışırsınız sadeceMerhabalar, ben cozumu buldum. D613 verileri degil E sutundaki veri araligi secilip bosluk secilmesinden sonra diger adimlarin izlenmesi lazimmis ki D kolonuna E'deki veriler gelsin.
Yardimlar icin tesekkurler