• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Girilen verilerin otomatik sıralaması

ulutanas

ulutanas

Altın Üye
Katılım
8 Kasım 2008
Mesajlar
582
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Arkadaşlar benim bu tabloda yapmak istediğim b1 ile b9 arasında verileri girince kaydet tuşuna bastığımda
a14 satırına bilgileri aktarmasını istiyorum. Temizle tuşuna bastığımda b1 den b9 a kadarki verileri silmesini
yeni veri girdiğimde kaydet tuşuyla 15.satıra aktarmasını böyle böyle sürekli kayıt yapmasını istiyorum ama
yapamıyorum yardımlarınızı bekliyorum. Teşekkürler.
 
Merhaba,

B1:B9 arasına yazılan verileri A sütununa aktarılsın istiyorsunuz, doğrudan A sütununa yazsanız olmuyor mu?
 
SANIRIM YANLIŞ BİLGİ VERDİM.

B1 ile B9 arasında verileri girince kaydet tuşuna bastığımda
B1 i A14 de B2 yi B14 e B3 ü C14 B4 ü D14 de gibi satırlara bilgileri aktarmasını istiyorum. Temizle tuşuna bastığımda b1 den b9 a kadarki verileri silmesini
yeni veri girdiğimde kaydet tuşuyla 15.satırlara aktarmasını böyle böyle sürekli kayıt yapmasını istiyorum.
 
dosya eklemeye çalıştım ama eklendimi bilmiyorum :)
 
nasıl dosya ekleniyo :(
 
Merhaba,
Ekteki örneği deneyiniz. Her butona basmanızda ilgili alandaki veriyi aktarır ve bu alan içindeki verileri siler.
Kod: 
Sub Aktar()
Sat = [a65536].End(3).Row + 1
If Sat < 14 Then Sat = 14
For x = 1 To 9
Cells(Sat, x) = Cells(x, "b")
Next
[b1:b9].ClearContents
End Sub

NOT: Dosya eklemek için Cevap Ver düğmesini tıladıktan sonra, mesajınızı girin, ardından Altta ilave seçenekler bölümünden "Dosya Ekle veya Sil" düğmesine tıklayarak gelen ekrandan Gözatı tıklayın ve dosyanızı seçin uplaad düğmesiyle dosyanızı ekleyin ve dosya ekleme penceresini kapatın. Yanıtı gönder düğmesine basarak mesajınızı yollayın.
 

Ekli dosyalar

Bir yardım daha

Leumruk bey yardımınız için çok teşekkür ederim tam istediğim gibi olmuş ama bir isteğim daha olacak lütfen ekdeki dosyayı kontrol edebilirmisiniz. Teşekkür ederim.
 

Ekli dosyalar

Leumruk bey kendim yaptım ama sizinde yaptığınız bişey olursa bakmak isterim. Ilginiz için çok teşekkür ederim. :))
 
Merhaba,

Aşağıdaki kodları deneyiniz, bakalım sizinkinden farklı mı?
Sizde çözümünüzü yazsaydınız paylaşmış olurdunuz.

Kod: 
Sub Akttar()
    Range("B1:C11").Copy
    Range("A" & [A65536].End(3).Row + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
    Range("B1:C6,B10:C11").ClearContents
    [B1].Activate
End Sub
 

Ekli dosyalar

Son düzenleme:
Necdet bey yolladığım dosyadauygulayıp gönderebilirmisin acaba
 
Yanlış yere yazmışım pardon
sizinkide aynı oluyo teşekkür ederim.
 
Merhaba,

9. mesajda dosya eklendi.
 
Biraz farklı

Hocam cok guzel br bılgı bu ben bunu bıraz daha degişik bır sekılde kullanmak ıstıyorum. ben ıkı sayfada çalısmak ıstıyorum yanı bılgılerı baska sayfada gırınce dıger sayfaya ıslemesını ıstıyorum ama dosyamda gızlı ve formullu hucreler var onları ektekı dosyada grı olarak ısaretledım bunun ıcın ne yapmalıyım ve yıne cok olmazsam :) oraya hucre ana tabloya hucre eklemek ıstedıgımde gırış sayfasında neler yapmama gerekıyor kısa bır acıklama yaparsanız sevınırım yardımlarınızı bekliyorum ornek dosyam EK tedır. Şimdiden tşk ederim
 

Ekli dosyalar

Merhaba,

Sadece iki sayfayı göstermişsiniz, biraz bilgi girip durumu açıklasaydınız şimdiye kadar çoktan yanıt alırdınız.

Giriş sayfasındaki bilgiler maliyet sayfasına aktarılmıştır. Eksik olanları (tek tırnak ile açıklamaya aldığım satırları) siz tamamlarsınız.

Kod: 
Sub Aktar()
Dim i As Integer
Dim Son As Long
Dim sg As Worksheet, sm As Worksheet
Set sg = Sheets("GİRİŞ")
Set sm = Sheets("maliyet")
    Son = sm.[A65536].End(3).Row + 1
    If Son < 6 Then Son = 6
    
    sm.Cells(Son, "A") = sg.Range("C1")
    sm.Cells(Son, "D") = sg.Range("C2")
    sm.Cells(Son, "E") = sg.Range("C3")
    sm.Cells(Son, "F") = sg.Range("C4")
    sm.Cells(Son, "H") = sg.Range("C5")
    sm.Cells(Son, "I") = sg.Range("C6")
    sm.Cells(Son, "K") = sg.Range("C7")
    sm.Cells(Son, "L") = sg.Range("C8")
    sm.Cells(Son, "M") = sg.Range("C9")
    sm.Cells(Son, "N") = sg.Range("C10")
    sm.Cells(Son, "X") = sg.Range("C11")
    sm.Cells(Son, "R") = sg.Range("C12")
'    sm.Cells(Son, "") = sg.Range("C13")
'    sm.Cells(Son, "") = sg.Range("C14")
'    sm.Cells(Son, "") = sg.Range("C15")
'    sm.Cells(Son, "") = sg.Range("C16")
'    sm.Cells(Son, "") = sg.Range("C17")
'    sm.Cells(Son, "") = sg.Range("C18")
'    sm.Cells(Son, "") = sg.Range("C19")
    sg.Range("C1:C19").ClearContents
End Sub
 

Ekli dosyalar

Hocam elıne saglık ıstedıgım gıbı olmus ama benım anlatım eksıklıgımden kaynaklanan cevap alamadıgım bır sorum var bunun ıcın sızden ozur dılerım yardımlarınızı beklıyorum amacım bu ısı ogrenmek o yuzden sureklı yenı seylerle karsılasıyorum ve bunları sızın yardımlarınızla ogrenecegım hersey ıcın tsk ederım sımdıden. Sımdı ben bu dosyaya bır sayfa daha eklesem ve gırış sayfasına yazdıklarımın bır kısmını oradaya yazdırmak ıstesem ne yapmam gerekıyor.
 

Ekli dosyalar

Hocam ozur dılerım anlatmadım tam olarak EK tekı dosyada ucuncu sayfayıda actım butonu tıkladıgımda bu sayfayada tarıh kyp plaka bılgılerının dusmesını ıstıyorum
 

Ekli dosyalar

Merhaba,

Dosyanız ekte.

Kod: 
Sub Aktar()
Dim i As Integer
Dim Son As Long
Dim sg As Worksheet, sm As Worksheet, si As Worksheet
Set sg = Sheets("GİRİŞ")
Set sm = Sheets("maliyet")
Set si = Sheets("istanbul")
    Son = sm.[A65536].End(3).Row + 1
    If Son < 6 Then Son = 6
    
    sm.Cells(Son, "A") = sg.Range("C1")
    sm.Cells(Son, "D") = sg.Range("C2")
    sm.Cells(Son, "E") = sg.Range("C3")
    sm.Cells(Son, "F") = sg.Range("C4")
    sm.Cells(Son, "H") = sg.Range("C5")
    sm.Cells(Son, "I") = sg.Range("C6")
    sm.Cells(Son, "K") = sg.Range("C7")
    sm.Cells(Son, "L") = sg.Range("C8")
    sm.Cells(Son, "M") = sg.Range("C9")
    sm.Cells(Son, "N") = sg.Range("C10")
    sm.Cells(Son, "X") = sg.Range("C11")
    sm.Cells(Son, "R") = sg.Range("C12")
'    sm.Cells(Son, "") = sg.Range("C13")
'    sm.Cells(Son, "") = sg.Range("C14")
'    sm.Cells(Son, "") = sg.Range("C15")
'    sm.Cells(Son, "") = sg.Range("C16")
'    sm.Cells(Son, "") = sg.Range("C17")
'    sm.Cells(Son, "") = sg.Range("C18")
'    sm.Cells(Son, "") = sg.Range("C19")

'       ----------- istanbul sayfasına aktarım -----------
    Son = si.[A65536].End(3).Row + 1
    si.Cells(Son, "A") = Son - 1
    si.Cells(Son, "B") = sg.Range("C1")
    si.Cells(Son, "C") = sg.Range("C2")
    si.Cells(Son, "D") = sg.Range("C3")
'       ----------- istanbul sayfasına aktarım sonu ------
    
    sg.Range("C1:C19").ClearContents
End Sub
 

Ekli dosyalar

Hocam elinize saglık bıraz ugrastırdım sızıde gercekten cok sagolun
 
Rica ederim, güle güle kullanınız.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst