Soru Makro ile Kaydırma İşlemi

[dengeceteris]

Günaydın Arkadaşlar.. Soru başlığı doğrumu karar veremedim. Bir konuda yardıma ihtiyacım var. Mizan Sayfamda C ile J arası 6 sütun var. Bu aralığa manuel veri yapıştırıyorum. Yapıştırdıktan sonra yapmak istediğim. C ve D sütunları yerinde kalacak ama E, F, G, H sütunlarını 2 şer sütun kaydıracak. Yani E sütunundaki veri G sütununa gelecek. Kaydırma işlemi yapıldıktan sonrada C ve D sütunları temizlensin istiyorum. Aşağı daki gibi bir şeyler yazdım ama yapabildiğimi söyleyeyemem.

Sub KAYDIR1()
On Error Resume Next
Dim x As Long, s1 As Worksheet, s2 As Worksheet

Set s1 = Sheets("MİZAN1")
son = s1.Cells(Rows.Count, 1).End(xlUp).Row
s1.Range("G3:J" & son).Value = s1.Range("E3:H" & son).Value

Call DUZENLE
Call MİZAN
Call kod
End Sub

 

[volki_112]

Günaydın Arkadaşlar.. Soru başlığı doğrumu karar veremedim. Bir konuda yardıma ihtiyacım var. Mizan Sayfamda C ile J arası 6 sütun var. Bu aralığa manuel veri yapıştırıyorum. Yapıştırdıktan sonra yapmak istediğim. C ve D sütunları yerinde kalacak ama E, F, G, H sütunlarını 2 şer sütun kaydıracak. Yani E sütunundaki veri G sütununa gelecek. Kaydırma işlemi yapıldıktan sonrada C ve D sütunları temizlensin istiyorum. Aşağı daki gibi bir şeyler yazdım ama yapabildiğimi söyleyeyemem.

Sub KAYDIR1()
On Error Resume Next
Dim x As Long, s1 As Worksheet, s2 As Worksheet

Set s1 = Sheets("MİZAN1")
son = s1.Cells(Rows.Count, 1).End(xlUp).Row
s1.Range("G3:J" & son).Value = s1.Range("E3:H" & son).Value

Call DUZENLE
Call MİZAN
Call kod
End Sub

Sub KAYDIR1()
On Error Resume Next
Dim x As Long, s1 As Worksheet, s2 As Worksheet

Set s1 = Sheets("MİZAN1")
son = s1.Cells(Rows.Count, "E").End(xlUp).Row
s1.Range("G3:J" & son).Value = s1.Range("E3:H" & son).Value
s1.Range(C3:D" & son).Clear.Contens

Call DUZENLE
Call MİZAN
Call kod
End Sub

Deneyip dönüş yapınız. Denemeden önce dosyanızın bir yedeğini alınız.

Sub KAYDIR1()
    On Error Resume Next
    Dim son As Long, s1 As Worksheet

    Set s1 = Sheets("MİZAN1")
    son = s1.Cells(Rows.Count, "E").End(xlUp).Row
    s1.Range("G3:J" & son).Value = s1.Range("E3:H" & son).Value
    s1.Range("C3:D" & son).ClearContents

    Call DUZENLE
    Call MİZAN
    Call kod
End Sub

 

[dengeceteris]

Üstadım ço tşk ederim. Emeğinize sağlık. Gayet güzel