sayfadan veri alma işlemi

[sinemomec]

sorum ektedir anasayfa adlı çalışma sayfasında şimdiden herkese teşekkur ederim.

 

[denemeq]

soruyu anlayamadım. ama direk = kullanarak ya da düşeyara ile yapabilirsin sanırım.

 

[sinemomec]

dosyadaki çalışma sayfalarınından herhangi birine(A,B,C,D) ad/soyad yazdığımda anasayfadada yazmasıdır.

 

[Necdet]

Merhaba,

Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    If ActiveSheet.Name = "ANASAYFA" Or Target.Address <> "$D$6" Then Exit Sub
    Sheets("ANASAYFA").Range("F6") = Target.Value
 
End Sub

 

[sinemomec]

hocam anasayfa kısmına yapıştırcam :S

 

[Necdet]

hocam anasayfa kısmına yapıştırcam :S

ana sayfa kısmına yapıştırmak? aktarmak yetmiyor mu?

 

[sinemomec]

beceremedim da ondan sayın hocam

 

[Necdet]

Merhaba,

İlk mesajıma dosyayı da ekledim.

 

[sinemomec]

hocam birf sorum olacak bu dosyadaki gibi tek değilde yani sadece adve soyad değilde başka kısımlar olursa nasıl yapabilirim.yani kodda nasıl degişiklik yapabilirim.

 

[Necdet]

hocam birf sorum olacak bu dosyadaki gibi tek değilde yani sadece adve soyad değilde başka kısımlar olursa nasıl yapabilirim.yani kodda nasıl degişiklik yapabilirim.

Ne gibi bir değişiklik? Olayı anlamak için keşke örnek dosyanızı tek bir hücre ile değil bir kaç hücre ile açıklasaydınız.

Şimdi nasıl anlatayım ki?

Bir örnek dosya ekleyin bir arkadaşımız mutlaka yardımcı olacaktır.

 

[sinemomec]

sayfadan veri ama işlemi

dosyadaki giibi olsaydı.

 

[sinemomec]

sorum günceldir.

 

[kotell]

hocam bi sorunum var yar olurmusunuz?

 

[Orion1]

Dosyanız ektedir.

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "ANASAYFA" Then Exit Sub
    If Target.Address = "$D$6" Then
        Sheets("ANASAYFA").Range("G6").Value = Target.Value
    ElseIf Target.Address = "$D$8" Then
            Sheets("ANASAYFA").Range("G8").Value = Target.Value
    ElseIf Target.Address = "$D$10" Then
        Sheets("ANASAYFA").Range("G10").Value = Target.Value
    ElseIf Target.Address = "$D$12" Then
        Sheets("ANASAYFA").Range("G12").Value = Target.Value
    End If
End Sub

 

[sinemomec]

dosyalar arası veri aktarımı

bir sorum daha olacak peki farklı excel dosyaları arasında veri transferi nasıl yapacam yani söyle anlatayım şimdi bana çalışma gönderdiğiniz dosyadaki anasayfa adlı çalışma sayfası başka bir excel dosyasında olsaydı veri nasıl gelecekti

 

[Orion1]

bir sorum daha olacak peki farklı excel dosyaları arasında veri transferi nasıl yapacam yani söyle anlatayım şimdi bana çalışma gönderdiğiniz dosyadaki anasayfa adlı çalışma sayfası başka bir excel dosyasında olsaydı veri nasıl gelecekti

Dosyanız ektedir.

Sub aktardosya59()
Dim Sh As Worksheet, wb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
If Workbooks.Open(ThisWorkbook.Path & "\HEDEF59.xlsx").ReadOnly = True Then
    Workbooks("HEDEF59.xlsx").Close True
End If
Workbooks.Open (ThisWorkbook.Path & "\HEDEF59.xlsx")
Set wb = Workbooks("HEDEF59.xlsx")
Set Sh = wb.Sheets("ANA SAYFA")
ThisWorkbook.Activate
Sh.Range("D6").Value = Range("D6").Value
Sh.Range("D8").Value = Range("D8").Value
Sh.Range("D10").Value = Range("D10").Value
Sh.Range("D12").Value = Range("D12").Value
wb.Close True
Set Sh = Nothing: Set wb = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Veriler hedef.xls dosyasına başarı ile aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub