[Yardım]  Veri Taşıma Ve Silme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Veri Taşıma Ve Silme

İleti#1)  ffocuss20 » 17 Tem 2019 20:39

Arkadaşlar yardımını istediğim konuyu dosyanın içinde açıkladım ilgilenen herkese şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ffocuss20
 
Kayıt: 17 Tem 2019 20:32
Meslek: Danışman
Yaş: 26
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli/Merkez

Cevap: Veri Taşıma Ve Silme

İleti#2)  Feyzullah » 17 Tem 2019 23:49

Kod: Tümünü seç
Sub excelTasi()
''Feyzullah Metehan8001 www.exceldestek.com
For a 
= 1 To ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Row Step 2

If Cells
(+ 1, "D") <> "" Then
Cells
(a, "G").Resize(1, 3) = Array(Cells(+ 1, "D"), Cells(+ 1, "E"), Cells(+ 1, "F"))
Cells(+ 1, "D").Resize(1, 3) = ""
End If

If Cells
(+ 1, "J") <> "" Then
Cells
(a, "N").Resize(1, 4) = Range("j" & a + 1 & ":M" & a + 1).Value
Cells
(+ 1, "J").Resize(1, 4) = ""
End If

Next a
MsgBox 
"          İşlem Tamam", vbInformation + vbMsgBoxRtlReading, "metehan8001"
End Sub

Sub excelSil
()
''Feyzullah Metehan8001 www.exceldestek.com
For a 
= ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Row + 1 To 1 Step -1
If Cells
(a, "D") = "" And Cells(a, "J") = "" Then Rows(a).Delete Shift:=xlUp
Next a
MsgBox 
"          İşlem Tamam", vbInformation + vbMsgBoxRtlReading, "metehan8001"
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, ertugrul1956, Google Adsense [Bot], Sogou ve 1 misafir

Bumerang - Yazarkafe