Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 03-11-2014, 11:33   #1
gurkanakinci
 
Giriş: 03/11/2014
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan yazdığım isime göre çalışma sayfasına kaydetme

http://http://s3.dosya.tc/server28/V...Ads_z.png.html
Selamlar. müşteri hesaplarını tuttuğum çalışma sayfamda her müşteriye ayrı sayfam var. yapmak istediğim; müşterilerin aldıkları ürünleri tek tek müşteri sayfasına girip işlemek yerine, farklı bir sayfada yazıp, yazdığım isme göre sayfasına kaydolmasını istiyorum. mümkün müdür? teşekkürler...
gurkanakinci Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 11:52   #2
turist
Destek Ekibi
 
turist kullanıcısının avatarı
 
Giriş: 18/11/2009
Mesaj: 3,085
Excel Vers. ve Dili:
Excel2013 English 64Bit
Varsayılan

Foruma hoşgeldiniz.
Eklediğiniz link açılmıyor.(Resim olarak değil, dosya olarak eklemelisiniz)
Örnek excel dosyanızı, GOOGLE DRIVE, YANDEX DISK, DOSYA.TC ,DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.
__________________
♡ Bana 1 kod öğretene 40 yıl duacı olurum. ♡
ⓣⓤⓡⓘⓢⓣ

ÖNEMLİ HATIRLATMA !!!
Sorularınıza mutlaka açıklama yazınız ve Örnek dosya ile destekleyiniz.
Dosyanızın birebir aynı, kısa boyutlu ve şifresiz olmasına özen gösteriniz.
Eğer ALTIN ÜYE değilseniz, Örnek dosyanızı; GOOGLE DRIVE,YANDEX DISK,DOSYA.TC, WETRANSFER.COM gibi dosya paylaşım sitelerine ekleyip linkini burada bildiriniz.
Sorunuzu cevaplayanlara sonucunu Forumda konu başlığınızda bildiriniz.
turist Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 12:11   #3
gurkanakinci
 
Giriş: 03/11/2014
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

peki dosya olarak göndereyim
gurkanakinci Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 12:24   #4
gurkanakinci
 
Giriş: 03/11/2014
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

hangi uzantıda göndermem gerekir düzgün açılması için
gurkanakinci Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 12:45   #5
gurkanakinci
 
Giriş: 03/11/2014
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

http://
gurkanakinci Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 12:46   #6
gurkanakinci
 
Giriş: 03/11/2014
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

sayfa başındaki 'akkardeşler' ortak olacaktı silmeyi unutmuşum. kafanızı karıştırmasın saygılar
gurkanakinci Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 13:43   #7
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Kod()
    Application.ScreenUpdating = False
    Dim SO As Worksheet: Set SO = Sheets("ORTAK")
    Dim Sayfa As String
    
    If ActiveSheet.Name <> "ORTAK" Then Exit Sub
    sonsat1 = SO.Cells(Rows.Count, "M").End(3).Row
    If sonsat1 < 7 Then sonsat1 = 7
    For a = 7 To sonsat1
        Sayfa = SO.Cells(a, "M")
        If Not SayfaVarMi(Sayfa) Then
        Else
            sonsat2 = Sheets(Sayfa).Cells(Rows.Count, "A").End(3).Row + 1
            If sonsat2 < 7 Then sonsat2 = 7
            SO.Range("A" & a & ":M" & a).Cut Sheets(Sayfa).Cells(sonsat2, "A")
            Application.CutCopyMode = False
        End If
    Next a
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

Function SayfaVarMi(Sayfa As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function
. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:01


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden