Sayfa1!t2:z & son aralığını Sayfa2!A&son:G&son dan itibaren yapıştır

[hsayar]

Sayfa1!t2:z & son aralığını Sayfa2!A&son:G&son dan itibaren yapıştır
ben üzerinde çalıştım ama excel hatalı işlem yürüttü diyor ' satırdan sonrası lazım yada yeni bir düzen

Sub VeritabaninaAt()
Dim sfVRT, sfDGT, sfTEST As Worksheet
Set sfVRT = Sheets("VT-edirne")
Set sfDGT = Sheets("dagit_MH")
Set sfTEST = Sheets("Sayfa1")

SonsatKpy = sfDGT.[z65536].End(3).Row
SonsatYps = sfVRT.[a65536].End(3).Row + 1

MsgBox SonsatKpy & "/" & SonsatYps

'sfDGT.Range("T2:Z" & SonsatKpy).Select
'sfVRT.Select
' Range("A" & SonsatYps).Select
 '   Range("T2:Z" & SonsatKpy).Select:    Selection.Copy
 '   Sheets("VT-edirne").Select
 '   Range("A" & SonsatYps).Select
 '   ActiveSheet.Paste
   
End Sub

 

[hsayar]

güncel.......

 

[Zeki Gürsoy]

Sub VeritabaninaAt()
Dim sfVRT, sfDGT, sfTEST As Worksheet
Set sfVRT = Sheets("VT-edirne")
Set sfDGT = Sheets("dagit_MH")
Set sfTEST = Sheets("Sayfa1")
SonsatKpy = sfDGT.[z65536].End(3).Row
SonsatYps = sfVRT.[a65536].End(3).Row + 1
MsgBox SonsatKpy & "/" & SonsatYps
 
   sfDGT.Range("A" & SonsatKpy).Copy _
                sfVRT.Range("A" & SonsatYps)
End Sub

 

[hsayar]

sn anemos hocam cevabınızı daha evvel gördüm fakat hast olduğum için cevap veremedim çünkü deneyemeidm. (Tabi Kablosuz klevye takımı ile izlediğim için takip etmek zor olmuyordu forumu)

Sub dagit7_Veritabani()
Dim sfVRT, sfDGT, sfTEST As Worksheet
Set sfVRT = Sheets("CSBM")
Set sfDGT = Sheets("TEMP")
SonsatKpy = sfDGT.[AH65536].End(3).Row
SonsatYps = sfVRT.[A65536].End(3).Row + 1
MsgBox SonsatKpy & "/" & SonsatYps
sfDGT.Range("AC:AH" & SonsatKpy).Copy sfVRT.Range("A" & SonsatYps)
End Sub

kodları çalıştıredığım zaman excel bir hata ile karşılaştı kapatılacak hatası veriyor bu nedendir.?

 

[Zeki Gürsoy]

Geçmiş olsun.

Excel'i hata ile kapatacak kadar zor bir yapı değil aslında.

Dosyanızı eklerseniz inceleyebilirim.

 

[Orion1]

ilgili kodu aşağıdaki ile değiştirip denermisiniz.

sfDGT.Range("AC[B][COLOR="Red"]1[/COLOR][/B]:AH" & SonsatKpy).Copy sfVRT.Range("A" & SonsatYps)

 

[hsayar]

Sub dagit7_Veritabani()
Dim sfVRT, sfDGT, sfTEST As Worksheet
Set sfVRT = Sheets("CSBM")
Set sfDGT = Sheets("TEMP")
SonsatKpy = sfDGT.[AH65536].End(3).Row
SonsatYps = sfVRT.[A65536].End(3).Row + 1
MsgBox SonsatKpy & "/" & SonsatYps
sfDGT.Range("AB2:AH" & SonsatKpy).Copy sfVRT.Range("A" & SonsatYps)
End Sub

başlangıç satırnosunu girdim. ama gene işe yaramadı. sn anemaos dosyayı rapide upload ederim birazdan

 

[hsayar]

http://rapidshare.de/files/38346785/vtCSBM_temp_.rar.html
dosya burada büyük olduğu için byuraya ekleyemedim.

 

[Zeki Gürsoy]

Sayın hsayar,ben hiç bir Excel uyarısı almadım. Kopyalama düzgün çalıştı.

Tam emin olmamakla birlikte sorunun Excel uygulamasından kaynaklı olduğunu tahmin ediyorum.

 

[hsayar]

sn anemos haklı olabilrisiniz.
Sub dagit7_Veritabani() kodunu çalıştırdı iseniz sorun yok bende iş yerinde deneyecem ama sorunuda çzömem lazım

 

[hsayar]

sn anemos işyerindede çalışmayı durdurdu diyor birde siz düzenlermisiniz
istediğim dağıt6 ile elde edilen listenin csbm sayfasındaki a sütunun ilk boş satırından itibaren kopyalanamasıdır.?


Dağıt 6 Sağlıklı bir şekilde çalışıyor ve mevcut sayfa üzerinde isteiğim dağıtımı AH sütunuana yapıyor ab:ag aralığında da dağıtılan satırın diğer bilgilerini kopyalıyor.

Sub dagit6_CdSkBlv()
    SONSATirknt = [z65536].End(3).Row
    For knt = 2 To SONSATirknt
        If Cells(knt, "Z").Value = "NULL" Then
           Cells(knt, "AA").Value = "KÖYİÇİ"
        End If
    Next knt
    
    SONSATirknt = [AA65536].End(3).Row
    For knt = 2 To SONSATirknt
    deger = Cells(knt, "AA").Value
        deger = LTrim(deger)
        deger = RTrim(deger)
        deger = Replace(deger, "Caddesi", "Caddesi*")
        deger = Replace(deger, "Sokağı", "Sokağı*")
        deger = Replace(deger, "Kümesi", "Kümesi*")
        deger = Replace(deger, "Meydanı", "Meydanı*")
        deger = Replace(deger, "Bulvarı", "Bulvarı*")
        If Right(deger, 1) = "*" Then
            deger = Left(deger, (Len(deger) - 1))
        End If
        cumledeki_degerler = Split(deger, "*")
            'Köy         AltKademe       MAHALLE SOKAKLAR

            For i = 0 To UBound(cumledeki_degerler)
                sonsatirYaz = [AB65536].End(3).Row + 1
                Cells(sonsatirYaz, "AB") = Cells(knt, "U")       'İL
                Cells(sonsatirYaz, "AC") = Cells(knt, "V")       'İLÇE
                Cells(sonsatirYaz, "AD") = Cells(knt, "W")       'BUCAK
                Cells(sonsatirYaz, "AE") = Cells(knt, "X")       'KÖY
                Cells(sonsatirYaz, "AF") = Cells(knt, "Y")       'ALTKADEME
                Cells(sonsatirYaz, "AG") = Cells(knt, "Z")       'MAHALLE
                snc = cumledeki_degerler(i)
                snc = LTrim(snc)
                snc = RTrim(snc)
                Cells(sonsatirYaz, "AH") = snc 'SOKAKLAR
            Next i
    Next knt
MsgBox "Cadde, Sokak (CSBM) bilgileri dağıtıldı."
End Sub

dağıtma işlemi bitince ben elle kopyalayıp CSBM e yapıştıryorum.


ancak bu kod çalıştığında hat verip excel kapanıyor.?

Sub dagit7_Veritabani()
Dim sfVRT, sfDGT, sfTEST As Worksheet
Set sfVRT = Sheets("CSBM")
Set sfDGT = Sheets("TEMP")
SonsatKpy = sfDGT.[AH65536].End(3).Row
SonsatYps = sfVRT.[A65536].End(3).Row + 1
MsgBox SonsatKpy & "/" & SonsatYps

sfDGT.Range("AB2:AH" & SonsatKpy).Copy sfVRT.Range("A" & SonsatYps)
End Sub

birde şöyle düşündüm kopyalamak yerine direk hedef sayfada dağıtma işlemini yapayım buda hata veriyor.

Sub dagit61_CdSkBlv()
Dim sfVRT, sfDGT, sfTEST As Worksheet
Set sfVRT = Sheets("CSBM")
Set sfDGT = Sheets("TEMP")
'SonsatKpy = sfDGT.[AH65536].End(3).Row
'SonsatYps = sfVRT.[A65536].End(3).Row + 1

    SONSATirknt = [z65536].End(3).Row
    For knt = 2 To SONSATirknt
        If Cells(knt, "Z").Value = "NULL" Then
           Cells(knt, "AA").Value = "KÖYİÇİ"
        End If
    Next knt
    
    SONSATirknt = [AA65536].End(3).Row
    For knt = 2 To SONSATirknt
    deger = Cells(knt, "AA").Value
        deger = LTrim(deger)
        deger = RTrim(deger)
        deger = Replace(deger, "Caddesi", "Caddesi*")
        deger = Replace(deger, "Sokağı", "Sokağı*")
        deger = Replace(deger, "Kümesi", "Kümesi*")
        deger = Replace(deger, "Meydanı", "Meydanı*")
        deger = Replace(deger, "Bulvarı", "Bulvarı*")
        If Right(deger, 1) = "*" Then
            deger = Left(deger, (Len(deger) - 1))
        End If
        cumledeki_degerler = Split(deger, "*")
            'Köy         AltKademe       MAHALLE SOKAKLAR

            For i = 0 To UBound(cumledeki_degerler)
                sonsatirYaz = sfVRT.[A65536].End(3).Row + 1
                sfVRT.Cells(sonsatirYaz, "A") = Cells(knt, "U")        'İL
                sfVRT.Cells(sonsatirYaz, "B") = Cells(knt, "V")       'İLÇE
                sfVRT.Cells(sonsatirYaz, "C") = Cells(knt, "W")       'BUCAK
                sfVRT.Cells(sonsatirYaz, "D") = Cells(knt, "X")       'KÖY
                sfVRT.Cells(sonsatirYaz, "E") = Cells(knt, "Y")       'ALTKADEME
                sfVRT.Cells(sonsatirYaz, "F") = Cells(knt, "Z")       'MAHALLE
                snc = cumledeki_degerler(i):                snc = LTrim(snc):                snc = RTrim(snc)
                sfVRT.Cells(sonsatirYaz, "G") = snc 'SOKAKLAR
            Next i
    Next knt
MsgBox "Cadde, Sokak (CSBM) bilgileri dağıtıldı."
End Sub

 

[hsayar]

sn anemos bende her türlü kapatmaya devam ediyor sorun sizce ne olabilir?